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ABSTRACT 


With  the  aim  of  developing  a  fast  and  accurate 
computer  code  for  predicting  the  aerodynamic  forces 
needed  for  a  flutter  analysis,  we  review  some  basic 
concepts  m  computational  transonics.  The  unsteady 
transonic  flow  past  airfoils  in  rigid  body  motion  is 
adequately  described  by  the  potential  flow  equation  as 
long  as  the  boundary  layer  remains  attached.  The  two 
dimensional  unsteady  transonic  potential  flow  equation 
in  quasilinear  form  with  first  order  radiation  boundary 
conditions  is  solved  by  an  alternating  direction  implicit 
scheme  in  an  airfoil  attached  sheared  parabolic  coordinate 
system.  Numerical  experiments  show  that  the  scheme  is 
very  stable  and  is  able  to  resolve  the  highly  nonlinear 
transonic  effects  for  flutter  analysis  within  the  context 
of  an  inviscid  theory. 


I.  INTRODUCTION 

We  begin  with  a  survey  of  the  behavior  of  flows 
past  conventional  airfoils.  Then,  we  introduce  the 
unsteady  transonic  problem  in  flutter  analysis.  Finally, 
we  discuss  the  mathematical  difficulties  of  solving 
such  a  problem. 
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1 .  Flow  Past  Airfoils 

We  begin  our  discussion  with  a  brief  survey  of  the 
behavior  of  flows  past  airfoils;  when  a  conventional 
symmetric  airfoil  accelerates  from  subsonic  speed  to 
supersonic  speed  the  flow  pattern  usually  develops  in 
the  manner  shown  in  Figure  11.  As  the  flight  speed 
of  the  airfoil  reaches  the  critical  speed,  the  local 
flow  speed  equals  the  local  sound  speed.  Beyond  the 
critical  speed,  a  supersonic  region  appears  on  the 
airfoil  which  is  usually  terminated  by  a  nearly  normal 
shock  through  which  the  flow  speed  jumps  from  super¬ 
sonic  to  subsonic.  With  a  further  increase  in  the 
flight  speed,  the  shock  moves  aft  and  the  size  of 
the  supersonic  region  and  the  shock  strength  both 
increase.  If  the  pressure  jump  through  the  shock 
is  sufficiently  large,  separation  of  the  boundary 
layer  occurs.  This  shock  induced  separation  starts  when 
the  local  Mach  number,  the  ratio  of  local  flow  and  sound 
speeds,  just  upstream  of  the  shock  is  about  1.25  to  1.3. 
When  the  boundary  layer  downstream  of  the  shock  separates, 
the  nature  of  the  flow  around  the  airfoil  changes 
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completely  and  often  turbulent  flow  phenomena,  such  as 
buffet  or  buzz,  start  to  occur. 

The  other  important  flight  parameter  is  the  angle  of 
attack,  the  angle  between  the  flight  direction  and  the 
airfoil  chord.  The  effect  of  changina  the  angle  of  attack 
of  a  conventional  symmetric  airfoil  at  a  given  super¬ 
critical  speed  is  shown  in  Figure  9  .  When  the  angle  of 
attack  is  increased,  the  speed  over  the  upper  surface 
increases,  and  the  shock  strength  and  the  supersonic  region 
on  the  upper  surface  both  increase. 

The  flow  patterns  for  a  modern  supercritical  airfoil 
acceleration  in  speed  or  angle  are  usually  similar  to  the 
patterns  shown  in  Figures  12  and  10,  respectively.  The 
supersonic  zone  in  these  cases  may  consist  of  several 
pieces. 
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2 .  Engineering  Considerations 

An  aircraft  under  certain  circumstances  may  experience 
vibrations  of  an  unstable  nature.  This  phenomenon,  called 
flutter  in  aeroelasticity ,  is  governed  by  the  interaction 
of  the  elastic  and  inertial  forces  of  structure  with  the 
aerodynamic  forces  generated  by  the  motion  of  the  vehicle. 
These  forces  interact  in  such  a  way  that  the  vibrating 
structure  extracts  energy  from  the  passing  flow.  This  may 
lead  to  a  progressive  increase  in  the  amplitude  of  vibra¬ 
tion  and  may  cause  structural  damage  and  loss  of  control  of 
the  vehicle. 

For  a  given  vehicle,  the  aerodynamic  forces  increase 
rapidly  with  the  flight  speed  while  the  elastic  and 
inertial  forces  remain  essentially  unchanged.  There  is  a 
critical  flight  speed  called  the  flutter  speed,  above  which 
flutter  occurs.  The  requirement  that  a  flight  vehicle  be 
free  of  flutter  over  the  entire  flight  range,  which  may 
include  subsonic,  transonic,  supersonic  and  hypersonic  speeds, 
is  one  of  the  most  crucial  factors  in  the  design  and  construc¬ 
tion  of  flight  vehicles.  The  vibration  characteristics  of 
the  vehicle  at  zero  speed  can  be  determined  quite  accurately 
by  numerical  methods  or  ground  vibration  tests  [44]  .  Thus 
flutter  analysis  depends  mainly  on  the  knowledge  of  the  aero¬ 
dynamic  forces.  In  subsonic  and  supersonic  flight,  aerodynamic 
forces  can  be  predicted  reasonably  well  by  current 
methods  based  on  linear  theory.  For  transonic  flight. 
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nonlinear  effects  make  the  evaluation  of  the  transient 
aerodynamic  forces  considerably  more  difficult.  This  has 
concerned  the  flutter  analyst  sirce  the  beginning  of 
transonic  flight.  The  transonic  regime  with  its  mixed 
subsonic-supersonic  flow  patterns,  usually  containing 
shock  waves,  is  the  most  critical  regime  for  the  deter¬ 
mination  of  the  flutter  boundary.  A  typical  flutter 
boundary  with  transonic  dip  is  depicted  in  Figure  1. 

The  flight  speed  may  exceed  the  flutter  speed  in  the 
transonic  region. 


speed 


Fig.  1  .  Typical  Flutter  Speed  vs.  Mach  Number  Curves 


of  a  Flight  Vehicle. 


Currently,  supercritical  v/ings  make  it  possible  to  cruise 
at  transonic  speeds  with  low  drag.  This  leads  to  a  renewed 
interest  in  transonic  flutter  analysis.  In  this  paper 
we  consider  inviscid  unsteady  transonic  potential  flow 
past  airfoils  in  rigid  body  motion  with  the  aim  of  provid¬ 
ing  a  method  of  predicting  the  aerodynamic  forces  needed 
for  a  flutter  analysis. 
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3 .  Mathematical  Problem 

In  mathematical  terms  we  find  solutions  to  a  partial 
differential  equation  that  describes  flow  outside  a  wing 
section  which  is  in  rigid  body  motion.  There  are  several 
difficulties  in  this  problem: 

1.  The  equation  is  nonlinear, 

2.  The  physical  time  direction  is  not  the  time-like 
direction  of  the  equation  when  the  flow  is  supersonic, 

3.  Shock  waves  occur,  and 

4.  The  body  surface  is  moving  in  time,  which  is  equivalent 
to  saying  that  there  is  an  essential  singularity  at 
infinity  in  the  airfoil  attached  reference  frame. 

While  much  progress  has  been  made  in  the  mathematical 

theory  of  transonic  flow,  many  basic  questions  remain  open. 
For  example,  even  for  the  small  disturbance  equation,  one 
of  the  simplest  nonlinear  mathematical  models,  it  has  not 
been  shown  that  the  problem  is  well  posed  in  a  suitable  class 
of  weak  solutions.  The  linear  theory  is  deficient  in 
predicting  important  features  of  transonic  flow  outside 
airfoils  in  low  reduced  frequency  motion  [29] . 

At  present,  a  very  effective  way  to  study  unsteady 
transonic  flow  is  to  obtain  approximate  solutions  by  compu¬ 
tational  methods.  We  overcome  the  first  difficulty  by  the 
use  of  finite  difference  methods.  This  allows  the  solution 
to  be  advanced  in  time  by  solving  a  sequence  of  linear 
equations  which  approximate  the  nonlinear  equation  if  the 
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time  step  is  small.  The  second  difficulty,  as  well  as  the 
third,  is  solved  by  a  type  dependent  differencing  strategy 
which  employs  central  differencing  for  all  terms  at  sub¬ 
sonic  points  and  upwind  differencing  for  the  streamwise 
derivatives  and  central  differencing  for  the  transversal 
derivatives  at  supersonic  points.  Shocks  are  captured 
automatically.  The  fourth  difficulty  is  solved  by  using  a 
coordinate  system  in  which  the  airfoil  is  fixed.  The 
far  field  then  has  an  essential  singularity  that  can  in  turn 
be  treated  by  introducing  radiation  boundary  conditions  at 
the  artificial  boundaries  which  are  a  finite  distance  away 
from  the  body. 
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4 .  Plan  of  Work 

The  plan  of  this  work  is  as  follows;  In  Section  II, 
several  flow  models  derived  from  the  conservation  laws  of 
fluid  dynamics  and  the  proper  constitutional  hypothesis  are 
reviewed  in  decreasing  order  of  complexity.  We  begin  with 
the  Navier-Stokes  equations  and  step  down  to  Euler  equations, 
potential  flow  equations,  small  disturbance  equation,  and 
low  frequency  small  disturbance  equation  .  We  discuss  the 
proper  boundary  conditions  and  related  concepts  in  each 
flow  model.  We  also  review  some  basic  numerical  concepts 
and  discuss  a  splitting  technique  for  constructing  stable 
implicit  schemes. 

In  Section  III,  we  restrict  our  attention  to  the  poten¬ 
tial  flow  equation  in  quasilinear  form.  We  study  the 
characteristic  surfaces  of  the  equation  and  derive  the 
proper  radiation  boundary  conditions  for  the  artificial 
boundaries  of  computational  domain.  We  also  discuss 
coordinate  transformations  which  render  the  airfoil  surface 
lying  along  a  portion  of  coordinate  surface  in  the  compu¬ 
tational  domain. 

In  Section  IV,  we  construct  a  highly  stable  alternating 
direction  scheme  for  the  potential  flow  equation  in  the  compu¬ 
tational  domain.  The  finite  differencing  strategy  and 
approximate  factorization  technique  are  analyzed  through 
linear  models,  convection  equation  and  wave  equation  . 

It  is  shown  that  the  scheme  is  unconditionally  stable  for 
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these  two  cases. 

In  Section  V,  we  check  the  scheme  by  calculating 
steady  flow  past  some  airfoils.  The  computational  results 
show  that  the  scheme  is  very  stable  and  there  is  no  problem 
in  calculating  sonic  flight.  Then,  we  demonstrate  our 
ability  to  calculate  unsteady  transonic  flow  past  realistic 
airfoils  in  rigid  body  motion. 

In  Section  VI,  we  present  the  conclusion  of  this  work. 

In  Appendix  A,  we  describe  a  5-diagonal  matrix  solver 
employed  in  our  scheme. 

In  Appendix  B,  we  explain  the  operation  of  the  computer 
program  and  the  glossary  of  input  parameters.  We  also 
present  the  listing  of  the  computer  program  UFL05 . 
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II.  BASIC  CONCEPTS 

With  the  object  of  developing  a  fast  and  accurate 
computer  code  for  unsteady  transonic  flow  past  airfoils 
we  review  in  this  section  some  basic  mathematical  models, 
including  governing  equations  and  boundary  conditions 
for  unsteady  transonic  flows  and  some  relevant  numeri¬ 
cal  concepts  including  the  resolution  of  the  finite 
difference  mesh  system,  the  ideas  underlying  the  split¬ 
ting  technique  and  the  shock  capturing  technique  used 
to  construct  an  alternating  direction  implicit  scheme 
and  the  advantages  and  disadvantages  of  conservative 
and  nonconservative  difference  schemes. 
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1 .  Customary  Flow  Models 

In  many  aeronautical  applications  turbulent  flow  is 
observed.  The  phenomenon  of  turbulence  is  not  well  under¬ 
stood  and  currently  much  attention  focusses  on  finding 
useful  models  to  describe  turbulent  flow  theoretically. 
Continuous  flow  models  have  been  found  adequate  to 
describe  a  large  class  of  flows  of  practical  importance  [32]. 


1 . 1  Navier-Stokes  Equations 

With  the  proper  constitutive  approximations,  the 
conservation  laws  of  mass,  momentum  and  energy  lead  to 
the  Navier-Stokes  equations  in  Cartesian  x,y  coordinates 
in  the  conservation  form  [32,38] 


(1) 


U.  +  F  +  G  =  0 
t  x  y 


where 


p 

PU 

u  = 

PU 

,  F  = 

PU2  + 

a 

X 

pv 

puv  + 

T 

xy 

Sc 

* 

♦a 

(e+ax> 

U  +  Ty){v  * 

G 


pv 

puv  +  r 
H  yx 

pv2  +  oy 

(e+ay)v+Txyu~  *37 


with 


13 


and 


_  ,  /  3u  3 vi  ~  3u 

“x  -  p  -  -  3?i  -  2u  55? 


„  _  I  fd U  ,  3v-j  _  3v 

°V  =  p  -  +  ad  -  577 


y  -  '3x  3yJ  3y 

in  terms  of  density  p,  pressure  P,  velocity  components 
u  and  v,  viscosity  coefficients  X  and  y,  total  energy 
per  unit  mass  e,  specific  internal  energy  e  and  coeffi¬ 
cient  of  heat  conductivity  k.  To  close  the  system  we 
adjoin  the  equation  of  state  p  =  p(e,p).  The  simplest 
equation  of  state  is  the  polytropic  relation  (y-law) 


P  =  (y-l)ep  ,  y  =  constant  , 


where  y  is  the  ratio  of  specific  heats,  equal  to  1.4 
for  air. 

The  above  system  can  be  rewritten  in  the  nondimen- 
sional  form  [42] 

(2)  U.  +  F  +  G  =  R_1  (R  +  S  ) 

t  x  y  0  x  y 
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with 

t  =  (A  +  2p)u  +  Av 
xx  x  y 

T  =  11  (u  +  V  ) 
xy  y  x 
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P  =  (y-1) [e  -  0.5  p(u2  +  v2)] 


where  the  local  sound  speed  a  is  given  by 
a2  =  y  ( y  -  1 )  [  e  -  0.5(u2  +  v2)]  , 

A  is  taken  as  -(2/3)u,  the  Stokes  hypothesis.  Note  that 
the  nondimensional  reference  quantities  are  arbitrary,  the 
Reynolds  number  Rg  and  the  Prandtl  number  Pr  used  in  equa¬ 
tion  (2)  are  defined  in  terms  of  these  reference  values. 

Usually,  two  types  of  boundary  conditions  must  be 
specified  to  determine  flow  past  airfoils  in  motion. 

a.  The  body  surface  condition  requires  the  flow  velocity 
relative  to  the  body  be  zero  (no  slip  condition),  and 

b.  Appropriate  far-field  boundary  conditions  must  be 
specified  at  the  necessarily  finite  limits  of  the 
computational  domain. 


1 . 2  Euler  Equations 

If  viscosity  and  heat  conduction  are  neglected,  the 
flow  equations (2)  are  reduced  to 

(3)  U  +  F  +  G  =  0 

t  x  y 

and  the  equation  of  state  for  the  y-law  gas, 

(3')  P  =  (y  -  1)  ep 


In  the  inviscid  flow  field,  if  there  are  surfaces 
of  discontinuity,  the  solution  of  the  differential  form 
(3)  has  to  be  interpreted  as  a  weak  solution  of  the  flow 
equation  with  proper  entropy  condition.  u(x,  y,t)  is  a 
weak  solution  of  differential  equation  (3)  if 


T 


■ 

■ 
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dx  dy  dt 
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W*U  dx  dy 


for  any  smooth  test  function  W(x,y,t)  which  vanishes 
for  I (x,y)l  large.  An  equivalent  statement  of  weak  solu¬ 
tions  of  the  differential  form  (3)  is  that 

a.  The  differential  form  (3)  holds  in  the  smooth  region,  and 

b.  Across  any  surface  S  of  discontinuities,  the  following 
jump  condition  holds; 

n.  [U]  +  n  IF]  +  n  [G]  =  0  on  S 

t  x  y 

=  (n  ,n  ,n. )  is  a  unit  normal  vector  to  the  surface  S 
x  y  c 


Here  n 


I 


of  discontinuity  pointing  from  the  region  (1)  to  the 
region  (2) .  More  specifically,  if  q  is  the  velocity 
vector  of  the  flow  and  s  is  the  velocity  of  the  surface 
of  discontinuity,  then  the  jump  relations  derived  from 
the  conservation  laws  of  mass,  momentum  and  energy  are 


(4) 

m  =  (n-c^-s^  =  (n»q2~s)p2 

(5) 

m(q2  -  qx)  =  n(px  -  p2) 

and 

(6) 

el  e2 

m(pj  -  p^>  ’  -  P2("^2> 

Equation 

(5)  implies  the  following  two  equations: 

(7) 

m(n-q2  -  n*^)  =  PL  -  P2 

and 

(8) 

m (nxq2  -  nxq^ )  =  0 

We  can  distinguish  two  cases  with  either  m  ^  0  or 
m  =  0  across  the  surface  of  discontinuity.  In  the  first 
case,  the  tangential  velocity  component  nxq  is  continuous 
across  the  surface  which  represents  a  shock  wave;  in  the 
second  case,  it  is  a  slip  surface  across  which  the  pressure 
and  the  normal  velocity  component  n»q  are  continuous  while 
the  density  and  the  tangential  velocity  component  can  have 
arbitrary  jumps.  In  the  particular  case  both  m 
vanishes  and  nxq  is  continuous,  the  slip  surface  is  called 
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a  contact  discontinuity  where  only  density  is  discontinuous 
and  there  is  no  relative  motion. 

If  there  is  a  region  of  supersonic  flow  in  the  flow 
field  it  is  well  known  [30]  that  shock  waves  will 
generally  appear.  The  entropy  condition  to  pick  the  right 
weak  solution  is  that  n*q  decreases  across  the  shock. 

For  the  inviscid  flow  model  the  boundary  condition  at 
the  body  is  reduced  to  the  kinematic  condition  requiring 
the  body  to  be  impenetrable  to  the  flow.  Namely,  the  flow 
remains  tangent  to  the  body  surface.  In  mathematical  terms 
it  is  subject  to  the  condition 

=  F  +  q-VF  =  0  on  the  body  surface  F(x,y,t)  =  0  . 

At  the  trailing  edge  it  requires  that  the  pressure  and 
the  flow  direction  be  continuous.  To  be  specific,  the 
rate  of  change  of  circulation  T,  measured  counterclockwise, 
is  given  by 


*  St  j  q  dr 

■  f  if  •  *  +  }  d4 


(£JU  '  qz] 
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where  the  velocities  and  are  the  upper  and  lower 
velocities  at  the  trailing  edge.  Consequently,  if  the 
circulation  is  to  change  with  time,  neither  the  average 
velocity  nor  the  jump  velocity  can  be  zero.  The  vortex 
sheet,  comprised  of  vortex  filaments,  trailing 
downstream  of  the  airfoil,  is  viewed  as  a 
slip  surface.  In  reality,  the  vortex  sheet 
is  convected  with  the  motion  of  the  fluid  and  rolls  up 
on  itself  due  to  its  self-induced  velocities.  A  consistent 
model  accounting  for  the  roll-up  of  the  sheet  would  add 
greatly  to  the  difficulty  of  constructing  a  boundary 
conforming  coordinate  system.  If  the  convection  and  roll-up 
of  the  sheet  are  ignored,  the  vortex  sheet  may  be  assumed 
to  be  along  the  streamwise  coordinate  surface  that  leaves 
the  airfoil  trailing  edge  smoothly.  The  constraints  applied 
on  it  are  that  the  pressure  and  the  normal  velocity  component 
be  continuous  across  the  vortex  sheet. 

The  appropriate  radiation  boundary  conditions  at  the 
artificial  boundaries  of  computational  domain  are  again 
needed . 

We  remark  that  in  steady  flow  calculation,  the  enerqy 

equation  can  be  replaced  by  Bernoulli's  equation  for  constant 

2  2 

total  enthalphy  H  =  ~y  ^  ^ v -  =  const.  thereby  reducing 

the  number  of  dependent  variables  from  four  (p,u,v,e)  to 
three  (p,u,v) . 


1 


19 


1.3  Potential  Flow  Equation 


Assuming  that  the  flow  can  be  described  by  a  velocity 
potential,  the  Euler  equations  can  be  reduced  to  a  single 
quasilinear  equation.  This  implies  that  the  flow  is  irrota- 
tional  and  hence  in  view  of  Crocco's  relation  that  there  are 
no  entropy  changes  in  the  flow.  The  entropy  produced  by  a 
shock  is  proportional  to  the  third  order  of  the  shock  strength 
[12] .  We  may  assume  that  the  entropy  is  conserved  across  the 
shock  if  we  just  consider  weak  shocks,  such  as  occur  on  the 
surface  of  a  well  designed  airfoil.  This  approximate  model 
should  not  be  a  source  of  serious  error  if  the  Mach  number  of 
the  normal  component  of  the  flow  ahead  of  the  shock  is  less 
than  1.2. 

Let  <J>  be  the  velocity  potential  with  q  =  V<J>  the 
velocity  vector.  The  equation  of  motion  Dq/Dt  =  -Vp/p 


leads  to 

ft  -  q*<7*q)  +  ™  *  0 

*  4  +  1  "  0 

+  |  ^  =  f(t)  +  constant. 

If  4>  =  $  -  f(t)  dt  then  V<J>  =  V$  and  $.=$.-  f(t). 

t  t 

We  therefore  call  <p  velocity  potential  as  well  and 
we  have  the  Bernoulli  equation  for  <j> 


The  conservation  of  mass  is 
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(2)  Pt  +  (P4>x)x  +  (P4>y)y  =  0 

We  take  the  equation  of  state  to  be 

;3)  P  =  (^)  PY 

with  p  =1  and  a  =  1  . 

In  the  smooth  region  of  the  flow  we  may  eliminate  p  from 
the  above  equation  and  get  a  quasilinear  equation  for  <p . 
The  equation  of  continuity  yields 

=  V  *q  -  V  •  V<J>  =  A 

The  Bernoulli  equation,  after  differentiation,  leads  to 


'l  Dp 
p  Dt 


or 

(5)  (ptt+2u<pxt+2v<pyt  =  (a2-u2>*xx  -  2uv<ixy  + 

The  shock  conditions  which  will  be  applied  in  the  model 
(1)  ,  (2)  and  (3 )  are 

a.  n*q  is  continuous  across  the  shock  which  implies 
$  is  continuous 

b.  (n*q  -  s)*p  is  continuous  which  says  mass  is  conserved 
across  the  shock,  where  s  is  the  shock  speed 
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c.  n*q  decreases  across  the  shock.  This  is  the  entropy 
condition . 

Here  n  is  the  normal  to  the  shock  surface. 

According  to  these  conditions,  a  normal  shock  is  to  be 
modeled  as  a  jump  between  equal  points  of  an  isentropic 
stream  tube.  The  corresponding  change  in  normal  momentum 
is  balanced  by  a  force  on  the  discontinuity.  The  combined 
force  on  the  body  and  the  discontinuity  is  zero  so 
that  the  integral  of  the  pressure  over  the  body  surface 
yields  a  drag  which  is  an  approximation  to  the  wave  drag. 

The  surface  condition  requires  that 

V4>  * n  =  vg-n  on  the  body  surface. 

Here  n  is  the  normal  to  the  body  surface  and  v  is  the 

D 

body  velocity  relative  to  the  absolute  reference  frame. 

The  trailing  edge  and  wake  condition  are  basically  the 
same  as  for  the  Euler  equations.  Specifically,  the  rate 
of  change  of  circulation  T  of  airfoil  is  given  by 

(6  )  dt  =  dt  q  dr  =  dt  [<J^TE  ^tJTE 

With  the  continuity  of  pressure  and  normal  velocity  component 
across  the  wake,  the  Bernoulli  equation  gives 

(7)  +  [-/]  =  +  0st^s)  =  0 

where  stands  for  the  average  velocity  at  any  point  in  the 

Thus  the  circulation  can  change  only  if 


wake 
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there  is  a  velocity  jump  at  the  trailing  edge.  Hence  a 
vortex  sheet  is  shed  and  the  wake  condition  (7)  expresses 
the  equation  for  the  transport  of  vorticity  downstream. 

We  will  discuss  radiation  boundary  conditions  for 
equation  (5)  in  a  later  section. 


1 . 4  Small  Disturbance  Equation 

For  small  disturbance  transonic  flows,  the  flow 

equation  can  be  further  simplified  by  a  perturbation 

method  [1]  .  Namely,  assume  that  the  thickness  to 

chord  ratio  t  of  the  airfoil  under  consideration 

2/3  2 

is  small  in  the  sense  of  r  ^  1  -  M  <<  1  ,  where  M  is 

oo 

the  free  stream  Mach  number.  If  we  expand  the  potential 
<p  to  the  potential  flow  equation  in  the  powers  of  t  and 
retain  the  lowest  approximation,  we  obtain  the  small 
disturbance  equation 


where 


and 


Sl*tt  +  2S2*xt  "  Vxx  +  V/ 


S1  =  M2(k2/t2/3),  S2  =  M2(k/t2/3) 


vc  =  (1-M2)/t2/3-  (Y+1)M2<!>x-  (y-1)  M2K<J>t 


The  reduced  frequency  <  =  toc/qro  is  a  measure  of  the 
degree  of  unsteadiness  of  the  flow  field  since  it  is  the 
ratio  of  the  time  scale  of  the  airfoil  flight  speed  c/q m 


w 
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and  that  of  the  unsteady  motion  1/oj,  where  c  is  the  chord 

of  airfoil,  co  is  the  frequency  of  the  unsteady  motion  and 

q  is  the  flight  speed.  The  flow  velocity  is  the  sum  of 

the  free  stream  velocity  and  the  gradient  of  <f> .  We 

remark  that  <J> ,  t,  y  and  x  have  been  scaled  by 
2/3  1/3 

ct  7  qw  ,  1/gj,  c/t  '  and  c  respectively. 

The  primary  merit  of  this  approximation  is  that  the 
surface  condition  is  very  simple.  The  surface  of  the 
airfoil  is  transferred  to  the  slit  y  =  0,  0  <  x  <  1, 
which  is  the  mean  surface  approximation  to  the  airfoil 
in  the  new  scaled  coordinate  system.  If  h(x,t)  is  the 
unsteady  displacement  of  the  airfoil  surface  from  the  true 
mean  contour  f(x),  then  the  surface  condition  is 

<p  =  f  +  h  +  h.  on  the  slit  y=0,  0  <  x  <  1. 

y  x  x  t 

The  wake  condition  is  that  the  jump  of  the  pressure  coefficient 

across  the  wake  y  =  0  ,  1  <  x,  must  vanish  Namely, 

[c  l  =  0  where  c  =  -  2  (<b  +  <(>,)  . 

P  P  XT, 
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1 . 5  Low  Frequency  Small  Disturbance  Equation 

2  2/3 

For  low  frequency  k  'v  1-M  ^  t  <<  1,  it  is  well 

known  [1]  that  the  small  disturbance  equation  reduces  to 

2S_<j>  .  =  v  <b  + 

2rxt  cyxx  Yyy 

where  vc  =  (1-M2)/T2/3  -  (y+l)M2<i>x  . 

The  surface  boundary  condition  and  the  wake  condi¬ 
tion  can  be  either  that  of  the  small  disturbance 
equation  or  as  follows; 


a.  <j)y=fx  +  hx  on  y=0,  0<x<l 


b.  [c  ]  =  0 


on  y  =  0  ,  1  <  x  where  c  =  . 

P  x 


1 . 6  When  to  Use  Which  Model 

Each  model  has  its  own  limitations  based  on  the  assump¬ 
tions  used  in  developing  the  flow  equations.  For  example, 
the  low  frequency  small  disturbance  equation  does  not 
describe  high  frequency  motion  well,  the  small  disturbance 
equation  does  not  describe  the  blunt  leading  edge  airfoils 
well,  the  potential  flow  equation  does  not  describe  the 
strong  shock  wave  well,  the  Euler  equation  does  not  describe 
separated  flow  well.  We  briefly  remark  that  when  strong  shocks 
lead  to  separation,  viscous  effects  cannot  be  neglected.  Either 
boundary  layer  correction  equations  or  the  Navier-Stokes  equa¬ 
tion  have  to  be  employed  [10]  .  The  consideration  of  turbulence 
is  probably  needed  to  resolve  the  complicated  flow  phenomena 
such  as  buffet  separation,  reattachement ,  and  so  on.  Here  we 
will  consider  flows  with  relatively  weak  shocks  which  can  be 
adequately  described  by  the  potential  flow  model. 


2. 


Basic  Numerical  Concepts 


The  numerical  problem  is  to  find  an  approximate 
solution  accurate  to  within  some  tolerance.  The  most 
basic  and  widely  used  method  to  solve  time  dependent 
problems  is  the  finite  difference  method.  In  this  sec¬ 
tion  we  review  some  basic  numerical  concepts  about  the 
finite  difference  method  and  propose  a  finite  difference 
strategy  with  a  splitting  technique  which  result  in 
unconditionally  stable  schemes  for  the  heat  equation, 
linear  advection  equation  ,  and  wave  equation,  respectively. 
And  we  will  apply  those  ideas  to  construct  an  ADI 
type  scheme  for  the  potential  flow  equation  in  quasilinear 
form  in  Section  IV. 


In  the  finite  difference  method,  one  performs  all 
calculations  on  the  grid  points  of  a  computational  domain 


which  is  of  finite  extent.  Once  the  grid  points  are 
given,  the  resolution  of  the  physical  phenomena  is 
naturally  limited  by  the  mesh  spacing.  To  be  specific, 
we  introduce  some  terms  through  the  definition  [36]  of 
a  Fourier  mode: 


(1) 


y 


i (wt+^x) 

a  6 


...  ,  i£(x+<a)/£)  t) 

—  a  c 

i  y(X+Ct) 


where  a  is  called  the  amplitude;  u>,  the  phase  rate; 

£ ,  the  wave  number,  c  =  w/£,  the  wave  speed;  X  =  2  it/ £,  the 
wave  length;  uit  +  £x,  the  phase  angle;  f  =  u)/2it,  the 
frequency;  x  =  1/f,  the  period. 

Suppose  we  express  a  function  u(x)  as  a  Fourier  series 


(2) 


u(x)  =  l 


a  .  e 
3 


ujx 


On  a  mesh  system  containing  I  equally  space  points  of 
spacing  Ax,  the  Fourier  mode  of  shortest  wave  length 
resolvable  in  the  system  is  *min  =  2  Ax  ;  the  longest 

wave  length  is  X  =  (I-l)Ax  =  L.  The  corresponding 

IHclX 

wave  numbers  are  £  =  7r/Ax  and  £  •  =  2tt/L. 

max  min 

So  the  total  number  of  wave  models  resolved  by  this 
mesh  system  is  N  =  (I  -  l)/2  and  the  part  of  u  which  can  be 
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resolved  by  this  system  is  the  partial  sum 


u 


N  i£  .x 

I  a.  e  D  with 
-N  J  J 


In  viscous  flow,  the  diffusion  and  the  advection  for 

•  i£x 

a  Fourier  mode  u  =  a  e  lead  to 


and 


d2u 

dx2 


=  -  V  Z  u 


du  ,  .  _ . 

pu  =  pu(i^)u 


Their  ratio  is  (pu)/(v£).  As  £  increases  the  diffusion 
becomes  stronger  and  dominates  eventually.  The  mesh 
spacing  should  be  fine  enough  to  understand  the  dissipa¬ 
tion  mechanism.  On  the  other  hand,  for  computational 
efficiency  the  number  of  mesh  points  must  be  kept  to 
the  minimum  required  to  resolve  all  the  significant 
phenomena.  Hence,  in  practice  [32]  ,  a  typical  computational 
domain  consists  of  a  fine  mesh  region  where  viscous  effects 
are  important  and  a  coarse  mesh  region  where  the  flow  is 
essentially  inviscid.  Some  techniques,  for  instance, 
coordinate  stretching  and/or  coordinate  transformations  are 
useful  [14,19,24,41].  Automatic  mesh  system  generation 
techniques  for  flow  about  multiple  bodies  in  a  plane  have 
been  developed  [42,43]. 


A 
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2 . 2  Time  Step  and  Approximation  Factorization  Technique 

Explicit  finite  difference  methods  have  demonstrated 
their  ability  to  solve  a  wide  range  of  flow  problems.  How¬ 
ever  the  size  of  a  time  step  that  a  solution  can  be  advanced 
during  each  step  of  calculation  is  restricted  by  the 
Courant-Friedrichs-Lewy  condition  (CFL  condition) .  The  CFL 
condition  imposed  on  the  time  step  is 

A 

At  <  - 

|q| 

where  A  is  the  grid  mesh  spacing  and  |q|  is  the  fastest 
propagation  speed  anywhere  on  the  mesh  system.  Therefore, 
the  solution  requires  long  and  expensive  computation  time. 

Unlike  the  explicit  method,  implicit  methods  can  be 
theoretically  stable  for  all  time  step  sizes.  Unfortunately, 
an  implicit  method  in  two  or  higher  space  dimensions 
requires  a  set  of  equations  to  be  solved  at  the  advanced 
time  level  which  is  not  always  easy  to  accomplish  directly. 
Accordingly,  the  splitting  technique  is  introduced  to  yield 
feasible  computational  processes.  We  illustrate  the  split¬ 
ting  technique  on  the  heat  equation  in  two  space  dimensions. 

(1)  <{> .  =  <b  +  d> 

yt  yxx  ryy 

The  finite  differencing  strategy  is  replacing  the 
differential  operator  in  time  by  the  forward  difference, 
the  <f>  in  the  right-hand  side  by  the  average  of  <j>n+^  and  <Jjn 


J 
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and  the  differential  operators  D  and  D  by  the  second 

xx  yy 

order  center  difference  operators  in  x  and  y  respectively. 


Namely, 
(2) 


*n+1-<f>n. 

_ ILL  = 

At 


E  -2I+E-1 

X  X 


Ax 


E  -2I+E_1 

_ z 


Ay' 


■)} 


>n+1+4,n. 

"i-I 

2 


where  .  similarly  Ey*£  =  *J#j+1. 

The  accuracy  of  the  finite  difference  equations  is  of 

second  order  in  time  and  space. 

We  may  write  the  finite  difference  equation  in  terms 

of  <S  =  E  -2I+E-1,  5  =  E  -2I  +  E-1  ,  with  p  =  At/2Ax2 

xx  x  x  yy  y  y  r 

2 

and  q  =  At/2Ay  as  the  equation 


(3)  (l-p6  -q<5  ,Un+1  =  (l+p  6  +q<5  Un 

^  xx  M  yy;  y  v  v  xx  M  yy;  y 

The  idea  behind  the  splitting  technique  is  to  generate 

a  perturbation  of  the  above  equation  that  permits  a  simpler 
* 

computational  process.  Namely,  we  may  factor  equation  (3) 
as  follows. 


(4)  (l-p6  }  (l-q6  Un+1  =  (l+p6  )  (l+g6  )  <t>n 

v  c  xx;  v  n  yy'  Yy  v  ^  xx'  1  yy'  y 

Here,  we  add  a  term  (At^/4 ) $XXyyt  third  order  in  time 

to  the  equation  (4) .  The  von  Neumann  stability  analysis  shows 
that  the  scheme  is  unconditionally  stable  which  means  there 
is  no  restriction  on  the  time  step  At  to  the  spacial  steps 
Ax  and  Ay.  Indeed,  substituting  ^  ei(mx+ny)  £nto 
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equation  (3)  we  obtain 


1  -  2p  (1-cos  £  ) 

1  -  2q  (1-cos  n) 

1  +  2p  (1-cos  £) 

1  +  2q(l-cos  n) 

with  £  =  m  Ax  and  n  =  n  Ay.  By  the  fact  that  both  p 
and  q  are  positive  we  conclude  that  the  right  hand  side 
is  less  than  1.  This  shows  the  amplification  |i|  is 
bounded  by  unity  without  any  restriction  on  p  and  q. 

The  algorithm  for  the  solution  of  equation  (4)  con¬ 
sists  of  three  easy  stepsi 

X  =  (l+q«yy)fj 

(l-p6KX)V  -  (1+P«XXIX 

<i-q«yy)«J+1  *  X 

Each  of  the  last  two  steps  requires  a  3-diaqonal  matrix 
solver  which  is  not  expensive  at  all  and  can  be  found  in 
any  standard  numerical  method  book  [23,41]. 

It  is  worthwhile  noting  that  equation  (4)  can  be  taken 
to  represent  an  iterative  procedure  which  converges  if 

.  =  0 .  .  for  sufficiently  large  n. 
ij  ij  i j 

Then,  equation  (2)  is  reduced  to  the  standard  five-point 
difference  approximation  of  the  Laplace  equations.  In  this 
case  the  quantity  At  can  be  viewed  as  an  iteration  parameter 
and  may  be  varied  from  iteration  to  iteration  to  optimize 
the  convergence  of  the  process. 
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Equation  (4)  can  be  rewritten  as 


(1-  ^  D  )  ( 1-  D  )  .) 

2  XX  2  yy  13  13 


At  ( D  +D  . 

xx  yy  13 


or 


(5)  (a-D  )  (a-D  )  ( 1  • ) 

'  ’  xx  yy  1 3  13 


=  2a(D  +  D  )  01?  . 

xx  yy  13 


It  falls  in  the  following  general  form  [20,25], 

(6)  Ncn  +  w  Rn  =  0 

which  is  used  to  solve  the  steady  differential  equation  L4>  =  0. 
Here,  c  =  <p  -  |  is  the  correction,  R  =  L<J>  is  the 
residual  which  measures  how  well  the  finite  difference  equa¬ 
tion  is  satisfied  by  the  nth  level  solution  <[>n,  w  is  a 
relaxation  parameter  and  N  is  chosen  as  a  product  of  two 
or  more  factors  indicated  by 

N  =  NxN2 

The  factors  and  N2  are  chosen  so  that  (1)  their 
product  is  an  approximation  to  L,  (2)  only  simple  matrix 
solvers  are  required,  and  (3)  the  overall  scheme  is  stable. 

This  type  of  implicit  scheme  has  been  found  very  power¬ 
ful  in  the  calculation  of  steady  flow.  We  remark  that  the 
parameter  a  in  the  equation  (5)  can  be  replaced  by  some 
lower  order  differential  operator  to  speed  up  the  convergence 
rate  as  well  as  to  introduce  dampinq  which  is  needed  in  the 
multigrid  technique  [26]. 
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2 . 3  Artificial  Dissipation  and  Upwind  Differencing 

In  inviscid  flow  calculation,  a  scheme  that  seems 
stable  for  shock  free  flows  sometimes  blows  up  when  it 
is  employed  to  calculate  shock  waves.  This  is  due  to  the 
fact  that  using  some  difference  formulas  across  a  disconti¬ 
nuity  can  lead  to  oscillations  which  may  grow.  To  remedy 
this,  the  well  known  shock  capturing  technique  is  to  add 
to  the  inviscid  flow  equation  a  proper  amount  of  artificial 
dissipation  to  simulate  the  physical  dissipation  in  the 
shock  layer  and  to  provide  the  necessary  damping  for  large 
wave  number  disturbances  so  that  the  shock  wave  is  smeared 
out  over  several  mesh  points  [28]  .  Namely,  if  we  model  the 
physical  solution  by  the  inviscid  flow  equation 

(1)  u  +  V  •  f  (u)  =  0 

For  shock  calculations,  we  look  at  the  solution  u  of  (1) 
as  limit  of  the  viscous  flow  equation 

(2)  ufc  +  V-f(u)  =  V(eVu) 

where  e  is  positive  and  is  of  the  order  of  the  mesh  spacing. 

Equation  (2)  is  of  diffusion  type  and  the  solution 
can  be  shown  to  exist  [31].  Suppose  that  the  solutions  u(e) 
of  (2)  tend  to  a  limit  u  boundedly  almost  everywhere  as  c  0. 

Then,  ut(e)  tends  to  ufc  ,  Vf(u(r))  to  Vf  (u)  and  V(e  V*u)  to  0 
in  the  distribution  sense.  This  says  that  u  satisfies  (1) 
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in  the  distribution  sense  which  is  equivalent  to  saying 
that  u  satisfies  the  conservation  law  in  the  integral  form. 

The  artificial  viscosity  can  be  viewed  as  a  kind  of 
truncation  error  exhibited  by  the  approximation  to  the 
differential  equations.  It  may  be  either  in  explicit  or 
in  implicit  form.  We  consider  the  artificial  viscosity 
introduced  by  upwind  difference  for  the  advection 
equa  tion 


4> .  +  u<J>  =  0 
t  Yx 


The  finite  difference  approximation  for  the  case  u  >  0  is 
,n+l  ,n 


r  „  n  ^i  ^i  ,  u  fXJ.n+l  ,n+h  ,  ,  An  xn  , 

:4)  - at— +2K|(,fi  +  ‘Wl1 


)  t  -  0 


The  von  Neumann  local  stability  analysis  is  to  substitute 

imx 

a  Fourier  mode  <f  =  ^  e  into  equation  (4)  .  This  leads 

to 

^  1  -  p(l-cos  £)  -  ip  sin  £ 

!<f>!  =  -  <  1 

1 +  p(l-cos  £)  +  ip  sin  t 


with  p  =  uAt/2Ax  >  0  and  £  =  mAx.  It  is  trivial  that  the 
scheme  is  unconditionally  stable. 

In  equation  (4),  we  did  add  an  artificial  viscosity 
implicitly  through  the  upwind  differencing  in  x.  We  can  see 
it  explicitly  by  Taylor  series  expansion.  Equa¬ 
tion  (4)  is  equivalent  to  the  equation 

=  u  ^  <(>xx  +  0  (At2  ,  Ax2 )  . 


(5) 


♦t  +  U*x 
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The  extra  term  u(Ax/2)G^  is  the  leading  term  in  the  trunca¬ 
tion  error  and  is  referred  to  as  the  artificial  viscosity. 

To  discuss  the  diffusion  and  dispersion  properties 
of  this  finite  differencing,  we  first  derive  the  dispersion 
relation  of  the  differential  equation  (3).  Substituting 
<f>  =  e1'a)*-+tX)  into  the  equation  (3),  yields  the  relation 
w+u£  =  0.  a)  is  a  real  number  so  that  there  is  no  damping 
of  any  wave  mode  and  all  waves  have  the  same  phase  speed  u. 

Next,  we  apply  the  same  Fourier  mode  to  the  viscous 
differential  equation 


+  u*x  * 


It  has  the  dispersion  relation 

,  r  |  |  Ax  r2. 

W+u£=|u|-y£l 


So  a  solution  of  equation  (6)  is 

iF,(x-ut)  -[|uj^~-  C2]  t 
<f>  =  e  •  e 


The  magnitude  of  the  damping  increases  with  the  wave 
number  F,  and  the  velocity  u.  Hence,  the  effect  of  arti¬ 
ficial  viscosity  is  to  introduce  larger  dissipation  for  both 
the  larger  wave  number  mode  and  the  faster  flow  region. 

We  see  that  there  is  no  dispersion  up  to  the  first  order 
approximation.  However,  if  we  add  an  extra  term  of  ^ xxx  to 
the  right  of  equation  (6)  then  dispersion  occurs.  This 
means  that  different  frequency  waves  propagate  with  different 
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speeds  in  the  flow  field. 

The  upwind  differencing  has  played  a  ver*  important 
role  in  transonic  flow  calculations.  The  main  purpose  is 
to  exclude  the  expansion  shock. 


2 . 4  Conservative  Finite  Difference  Schemes 

The  main  idea  behind  the  use  of  conservation  form  is 
the  fact  that  if  the  difference  equation  to  the  differential 
equation  in  conservation  form  is  again  in  conservation 
form,  the  solution  of  the  finite  difference  equation  satisfies 
the  Rankine  Hugoniot  jump  conditions  automatically  [30,39]. 

The  differential  conservation  form 


(i; 


ufc  +  div  f (u)  =  0 


can  be  derived  from  the  more  general  integral  form 


! 

t  t 

• 

r 

r 

u  dx 

+ 

.  J 

1 

i 

R 

s  s  9 

f*n  ds  dt  = 


J 

s  R 
t 


(2) 


-II 

s  R 

=  0 


u^  dx  dt  + 


ufc  dx  dt  + 


j  j  f  n 
s  9R 
t 

J  JJ 

s  R 


ds  dt 


V-f  dx  dt 


which  says  that  the  change  in  the  amount  of  a  substance  with 
density  u  contained  in  the  region  R  of  space  under  considera¬ 
tion  is  due  to  the  flux  f  of  that  substance  across  the 


w 

boundary  3R  from  time  s  to  t ime  t. 

The  conservative  finite  difference  approximation  is 
then  defined  having  the  form 


which  simulates  the  integral  conservation  form. 

Our  differencing  strategy  for  the  flow  eguation  in 
conservation  form  yields  the  finite  difference  eguation 


The  question  is  how  to  solve  for  un+1  for  this  large 

nonlinear  system.  Some  linearization  for  F  is  needed. 

a 


III.  POTENTIAL  FLOW  EQUATION 

In  the  steady  inviscid  transonic  flow  calculation, 
the  nonconservative  form  method  agrees  well  with  wind 
tunnel  pressure  data  all  the  way  up  to  the  onset  of 
buffet  [18]  .  On  the  other  hand,  for  the  conservative 
form  method,  the  agreement  is  less  satisfactory  and  the 
adequate  correlation  with  experimental  data  seems  to  be 
achieved  by  making  correction  with  boundary  layer  shock 
wave  interaction.  For  mesh  sizes  of  practical  interest, 
instead  of  doing  a  better  simulation  by  combining  a  finer 
scale  model  of  boundary  layer  shock  wave  interaction  with 
conservative  transonic  equations,  we  pick  up  the  noncon¬ 
servative  quasilinear  potential  flow  equation  as  our  model 
and  develop  a  computer  code  for  it. 

We  first  discuss  the  characteristic  surfaces  of  the 
equation  and  explain  the  domain  of  dependence  for  super¬ 
sonic  points.  Then,  we  give  a  set  of  radiation  boundary 
conditions  which  is  shown  to  be  very  satisfactory  with 
the  numerical  scheme  we  propose  in  Section  IV.  And, 
finally,  we  introduce  the  coordinate  transformation  such 
that  the  airfoil  is  fixed  on  a  portion  of  coordinate  line. 


I 

t 

1 
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1.  Characteristic  Surface 

It  is  helpful  to  know  the  characteristic  surface  of  the 
flow  equation  on  which  the  wave  front  along  with  informa¬ 
tion  is  propagated  throughout  the  flow  field.  Let  s  and  N 
be  coordinates  in  the  local  stream  and  normal  directions 
respectively.  The  direction  cosines  of  s  are  u/q  and  v/q. 

4>gs  and  4>NN  can  be  expressed  locally  in  terms  of  the  actual 

coordinates  as 

♦as  *  ^2  (u\x  +  2u^xy  +  v2*yy> 

♦bn  *  ^  (v2**x  -  2uv*xy  t  u2*yy' 

The  potential  flow  equation  in  Cartesian  coordinates  locally 
aligned  with  the  natural  coordinate  system  (s,N)  can 
be  written  as 

*tt  +  2q*st  =  (a2'CJ2)<l>ss  +  9\n  * 

The  characteristic  surface  satisfies  the  equation 

(q2-a2)t2  -  2qs t  +  s2  -  (^2"-|  )  N2  =  0. 

a 

As  shown  in  Figure  2,  on  the  (N,t)  plane,  the  character¬ 
istic  equation  is  reduced  to 

a2t2  -  N2  =  0  or  (N-at) (N+at)  =  0  . 

The  disturbance  propagation  speed  is  a. 

On  the  (s,t)  plane,  the  characteristic  eauation  is  reduced 

to 

,  .  ,2  2.2 

(qt  -  s)  =  a  t 

or 

(s- (q+a) t) (s- (q-a) t)  =  0  . 
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The  particle  speed  is  q,  the  upstream  propagation  speed 
is  q-a  and  the  downstream  propagation  speed  is  q+a.  Thus 
the  disturbance  information  is  propagated  by  the  Doppler 
shifted  sound  wave  velocity.  For  transonic  flow,  the 
particle  and  downstream  waves  quickly  travel  away  from 
the  airfoil  but  upstream  waves  remain  in  the  vicinity 
of  the  airfoil  for  a  much  longer  time.  The  slow  waves 
force  a  slow  approach  to  a  steady  state  solution,  while 
the  fast  waves  stipulate  a  small  time  step  by  the  CFL 
condition  At  _<  Ax/ (q+a). 

2  2 

If  a  new  time  coordinate  T  =  t  +  qs/(a  -q  )  is 
introduced,  then  the  potential  flow  equation  can  be 
expressed  as 


<a2-q2)*sS  -  A™ 


,  2  2, 

(a  -q  ) 


TT 


2  2 

So  for  supersonic  points,  a  <  q  ,  T  is  a  space-like 
direction  and  s  is  a  time-like  direction.  This  means 
the  differencing  in  the  s-direction  should  be  retarded  in 
the  supersonic  region  in  order  to  have  the  right  domain  of 
dependence.  For  subsonic  points,  a  >  q  ,  s  is  a  space¬ 


like  direction  and  T  is  actually  a  time-like  direction. 
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2 .  Computational  Boundary  Conditions 

Problems  of  transonic  flow  field  are  usually  posed 
in  the  exterior  of  the  body  which  is  an  unbounded  domain 
[4],  Owing  to  the  finite  storage  capability  of  the 
computer,  the  numerical  computations  require  that  the 
computational  domain  be  finite.  The  proper  boundary  condi¬ 
tions  must  be  developed  at  these  computational  boundaries 
so  that  the  computed  solution  closely  approximates  the 
free  space  solution  which  exists  in  the  absence  of  these 
computational  boundaries  [15,16,171. 

For  steady  state  calculations  in  transonic  flow, 
coordinate  mapping  techniques  are  a  traditional  and 
effective  way  of  handling  these  computational  boundary 
problems.  The  reason  for  the  success  of  coordinate  mapping 
techniques  lies  in  the  fact  that  the  steady  state  far  field 
asymptotic  behavior  is  given  by  a  regular  algebraic 
singularity  without  oscillation.  For  genuinely  unsteady 
transonic  phenomena,  the  solution  of  flow  equations  usually 
possesses  a  strongly  oscillatory  transient  behavior  and 
the  far-field  asymptotic  behavior  is  an  oscillatory 
singularity.  The  standard  coordinate  mapping  technique  is 
not  adequate  to  resolve  this  problem.  It  must  be  supplemented 
by  a  set  of  proper  boundary  conditions  at  the  computational 
boundaries. 

In  this  section  we  will  give  a  set  of  radiation  boundary 
conditions  for  the  potential  equation  in  the  Cartesian 
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coordinate  system  and  in  a  later  section  we  will  give 
its  corresponding  form  in  the  computational  domain. 

In  the  physical  domain,  the  computational  region  for  an 
airfoil  in  two  dimensions  is  depicted  as 


Figure  3.  The  Typical  Computational  Reqion  for  an  Airfoil. 

The  design  of  effective  far  field  radiation  boundary 
condition  depends  on  the  wave  propagation  properties  of 
the  flow  equation.  We  consider  the  potential  flow  equation 

(1)  *tt+  2u$xt+  2v$yt=  <a2-u2>4>xx-  2uv0xy+  (a2-v2)  $yy 

For  a  plane  wave  3  =  e*  (tJt+£x+r'y)  to  satisfy  equation  (1), 
it  requires  that  its  wave  information  satisfy 

(2)  w2  +  2u£w  +  2vtiuj  =  (a2-u2)C2  -  2uv£n  +  (a2-v2)g2 
or  (u+  u£  +  vn)2  =  a2(52  +  n2) . 

A  boundary  condition  on  the  upstream  wall, 
boundary,  which  annihilates  the  upstream  propagating 
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wavelet  is  given  by 

(4)  a)  +  +  vn  =  /I +r)2/^ 

Recalling  the  dual  relationship  between  iw ,  i in 

and  D,  ,  D  ,  D  respectively,  the  equation  stands  for 
t  x  y 

a  nonlocal  condition.  By  the  first  approximation  of 

12  *3 

/l+x  =  1  +  1/2  x  -  —  x  +  0(xJ)  we  get  the  first  radiation 

8 

condition  for  R^  boundary,  namely,  w  +  u£  +  v£  =  a£ 
which  leads,  after  Fourier  transformation,  to  the  condi¬ 
tion 

(5)  <J>t  +  (u  -  a)  <J>x  +  v<J>y  =  0 

Similarly,  we  can  derive  the  artificial  boundary  condi¬ 
tions  for  the  R2  ,  R3  and  R4  boundaries.  At  their  inter¬ 
section  points  ,  ?2  ,  and  Q2  ,  we  use  the  average  of 

the  corresponding  conditions,  and  have  the  following  general 
formula 

(6)  4>fc  +  u<J>x  +  v$y  =  0 

with  u  +  iv  =  (u  +  iv)  +  ae^  where  B  =  -  ^ 

at  Q2  ,  P2  n>  and  and  B  =  0,  j  ,  it,  ,  on 

R2  ,  R^  ,  R^  and  R^  respectively. 
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Coordinate  Transformation  Technique 


When  the  body  surface  crosses  the  coordinate  lines 
it  is  difficult  to  satisfy  the  physical  boundary  condi¬ 
tions.  This  is  particularly  the  case  near  the  leading 
edge  of  the  modern  supercritical  wing  section  where  the 
surface  has  a  high  curvature  and  the  flow  is  sensitive 
to  small  variations  in  the  shape  [41]  .  For  the  rigid  body 
motion  of  the  airfoil  the  treatment  is  facilitated  by  the 
use  of  a  moving  sheared  parabolic  coordinate  system  in 
which  the  body  contour  coincides  with  a  segment  of  coordi¬ 
nate  line  and  the  whole  mesh  system  is  moving 
with  the  wing  section  so  that  the  relative  position  of  grid 
points  is  kept. 

We  describe  the  moving  sheared  parabolic  coordinate 
system  as  follows  [3,25]: 

3 . 1  Coordinate  System 

First,  we  consider  the  physical  plane  to  be  described 

in  a  Cartesian  coordinate  system  (x,y) ,  and  the  airfoil 

attached  coordinate  system  in  Cartesian  coordinate  system 

(x*,y*) .  Let  the  origin  of  (x*,y*)  system  be  at  the 

singular  point  of  the  parabolic  mapping  which  unwraps  the 

airfoil  and  will  be  described  in  the  next  step.  If  the 

flight  velocity  of  the  airfoil  is  M*e  v  at  time  t,  then  the 

position  of  the  origin  of  the  (x*,y*)  system  can  be  described  as 

0*0  =  M^e1^71  ^  ds.  If  the  angle  of  attack  of 

1  0 


the  airfoil  at  time  t  is  o,  then  the  x*-axis  on  which  the 
airfoil  chord  lies  will  have  an  angle  -  (a  +  6)  with 
respect  to  the  x-axis.  Their  relation  can  be  seen  in 
Figure  4  and  described  as  the  relation 

t 

(1)  (x*ly)  =  j  M.U)  el('-9(s,)  ds  ♦  (x%iy*>  e-i(e+“' 

0 
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Second,  we  unwrap  the  airfoil  by  introducing  the  square 
root  mapping 

(2)  2(x*+iy  )  =  (x1+iy1>2 

which  maps  the  entire  airfoil  contour  to  a  shallow  bump 
near  y^  =  0  ,  as  shown  in  Figure  5b. 

Third,  if  we  denote  the  heiqht  of  the  bump  as  y,=  sfx^, 
then  the  shearing  transformation 


(3) 


X  +  iY  =  x1  +  i  (y^  -  s  (x^ )  ) 


reduces  the  airfoil  contour  to  a  portion  of  the  line  V  =  0. 

Fourth,  we  stretch  the  coordinate  line  by  the  stretch 
mapping  to  render  the  computational  domain  finite.  The 
stretch  mapping,  for  instance, 


b? 

(4)  Y  =  - rT~T  '  0  <  a  i  1 

{ 1  -  Y" ) 3 

will  map  the  infinite  lines  Y  =  +  ^  to  Y  =  +  1  . 

Fifth,  avoiding  discontinuities  at  the  trailinq  edge  of 
wing  section,  the  branch  cut  is  contined  smoothly  downstream 

physical  space,  the  continuation  is  represented  by 

-  -  * 


(5) 


where 
at  the 

sea  1  i n  j 


?  n 


x-x 


=-  1 


f  a  vtc  *  ’I5te-5*1 


vte‘ 


[- 


_  _  * 

X-X 


X  .  -x 
te 


i  is  the  mean  of  the  upper  and  lower  surface 

_  _  _  ★ 

trailing  edne  (x,  ,y.  )  and  x  is  a  suitably 

te  te 

constant  'usually  taken  as  the  ordinal  of 


slopes 
chosen 
t  he 


the 

In 


local  quarter-chord  point). 
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3 . 2  Flow  Equation 

The  transformations  (1)  and  (2)  are  conformal.  We  will 
write  the  flow  equation  on  the  (x^,y^)  coordinate  system, 
and  use  the  chain  rule  to  convert  the  equation  into  the 
(x,y)  system.  Several  key  formulas  are  written  down  for 

reference.  We  begin  with  some  notation. 

*  * 

Let  z  =  x  +  iy,  z  =  x*  +  iy  , 

z^=  x-^+  iyx,  Z  =  x  +  iY  ,  Z  =  X  +  iY 

Then  the  mapping  (1)  and  (2)  may  be  expressed  as 
the  following  compact  forms. 


The  modulus  of  the  mapping  function  to  the  z^  plane  can 
be  evaluated  as 


H  -  '  *&!  '  thus  v  *  (ir4g  ■ 


The  velocity  components  in  the(x^,y^)  system: 


The  chain  rule  gives  the  relation  for  -!  in  the  ( x^  , y^ ) 
system: 

dy_n 

d  t.  I  r .  , 

]  z  fixed 
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where  dx^/dt  and  dy^/dt  can  be  found  as  follows.  Since 


2  ■>  *  ~  i(0+a).  , 

z^  =  2  •:  =  2e  1  z 


-  ffc  M*  e1 
1  0 


(71-9) 


ds 


we  take  differentiation  with  respect  to  time  t  and  hold 
z  fixed.  Hence 


d2ll  21  Meia 

dt1  f.  *  -T  +  ^ 

1  z  fixed  1 


We  remark  that  <f> .  =  <f>_  -  (v  *7)<j>  if  vD  is  the  relative 

t  I  ^  K  K 

velocity  of  the  origin  of  the  (x^,  y^)  system  to  the  (x,y) 
syatem  [36].  Then,  we  conclude  that 


vr  -  -  (H  at 


dx.  dy. 

-  H  air'  • 


The  same  differentiation  applied  twice  on  z  yields 


d2z, |  z  z.  r dM*  ia 

rr  =  -r  [i(0tt+att> ]  +  ^  {air  +  M*(iat^e 

z  fixed 

(9t+nt>2  "*  i2a 

- 5 -  2i  '  3  e 

1 


which  will  be  needed  in  the  evaluation  of  the  following  term 


dx. 


dYi 


d2x. 


<f>  =  A 

’  4-  t  r 


+ 


tt  yT1T]_  '  N2x1T1  dt  '  vx1T1  dt 


+  <h 


+  4\ 


1  dt2  yl  dt2 


+  (< 


+  ‘t> 


dx.  dy.  dx. 

+  \r  ST- 


X1T1  y>ClXl  dt  Xiyi  dt  dt 


.  U  ^  A  dXl  ^  ,  ^1^  ^1 

+  ^yiTi  ^xiyi  ^yiyi  dt  dt 
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Similarly,  the  chain  rule  gives 


d> 

vx^t 

<b 

X1T1 

+  4> 

xlxl 

dx  ^ 
dt 

+  <p 

xlyl 

dyl 

dt 

+  S 

dx. 

^yl  t  = 

^  V  T 

Ylil 

+  4> 

xlyl 

dxl 

dt 

+  ^Ylyl 

dyl 

dt 

+  s 

{- 

ldt 

dy. 

(2l) 

,  ldt  > . 


Recalling  that 


|  (V4.V)  (  |  V4)  |  2 )  =  \  {u24>  +  2uv6  +  vV 

H  1  X1X1  Xlyl  Y1Y1 


and 


2  2  i 

,u  +v  .  ,  ,  . 

-  ( — — )  (uxx  +  vy1)| 


A*  =  -T  {<»x  x  +  *y  y  } 
H  X1X1  Ylyl 


Finally,  we  can  write  down  the  potential  flow  equation 
in  the  (x^,y^)  frame  as  the  partial  differential  equation 

2 


T1T1 


+  2 


+  $  — 
ylyl  H2 


+  <b 


, 2  2 
d  Yt 


Yl>-  dt2 


dx 

where  u  -  u  +  H 

r  dt 


7  Vr 

:1T1  H 

<J>  _  + 

Vi 

"xlxl 

u 

-§  +  2  <t> 
H 

U  V 
r  r 

Xlyl  H2 

,2 

■d  xn 

1  2  u 

dt2 

dx. 

<dt  \ 

dyl  1 

(dt\J 

dy, 

1  r  1i  + 

2V  fdY1) 

l  _ 

u2+v2 

( ux^+vy^ ) 

[  ldt  J 

X1 

H  ldt  1 

V 

H3 

—  and  v 

r 

=  v  +  H 

dYl 
dt  - 
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The  shearing  and  the  stretching  transfor. nations 
will  further  bring  the  flow  equation  in  much  more 
complicated  form.  We  will  not  write  down  the  flow 
equation  in  the  (X,Y)  frame  here.  Instead,  we  write  the 
useful  formulas 


and 
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3.3  Body  Surface  Condition 

The  velocity  observed  in  the  (x^,y^)  frame  is 
s  (ur>vr)  =  7<p  -  VR.  Thus,  the  nonpenetrating  surface 
condition  requires  that  qr  •  n  =  0  ,  which  leads  to 


2  f  dltl  dyll 

x**x  +  H  K  ar  -  ar} 


<t>  =  s 

yl  X 


3.4  Wake  Condition 

The  zero  pressure  jump  in  the  wake  which  lies  on  the 
portion  of  the  singular  line  along  which  the  airfoil  is 
opened  up  can  be  [21 J  expressed  as 

i*Tl*  ♦  ar  1 V  +  t  ‘V’  =  0 

where  u  is  the  average  of  the  upper  and  lower  wake  velocities. 


3 . 5  Computational  Boundary  Conditions 

The  comouta tional  domain  is  depicted  as 

P, 


1 


1  i 


lower  wake  upper  wake 

airfoil 


°! - 

Fiqure  6. 

The  radiation  boundary  condition  is  of  the  form 


o„ 


+ 


dx.  dy. 

$„  + 


rT±  -  dt  Vx1  dt  vyx 


4>  +  +  V*  =  0 


yl 


where  u  and  v  are  defined  as  before. 
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IV.  NUMERICAL  METHOD 

In  this  section,  we  apply  the  idea  introduced  before 
to  design  our  numerical  solver  for  potential  flow  equation 
in  quasilinear  form.  First,  we  use  type  dependent  dif¬ 
ferencing  to  introduce  the  proper  amount  of  dissipation 
into  the  finite  difference  approximation  such  that  the 
scheme  is  stable  and  shock  waves  are  captured  auto¬ 
matically.  Then,  we  factor  the  finite  difference  equation 
into  one-dimensional  factors  so  that  we  are  able  to  solve 
the  equation  efficiently  by  employing  a  5-diagonal  matrix 
solver.  Since  the  disturbance  of  potential  flow  is  prop¬ 
agated  by  the  total  effect  of  advection  and  wave  propaga- 
L i on ,  we  examine  the  stability  of  our  method  to  two  linear 
models:  advection  and  wave  equations.  The  local  stability 
analysis  shows  that  our  finite  differencing  strategy  and 
approximate  f actor i zati on  technique  result  in  uncondition¬ 
ally  stable  schemes  for  these  two  models. 

1 .  Finite  Difference  Scheme 

The  finite  difference  scheme  is  a  time  marching 
alternating  direction  implicit  scheme.  Before  we  write 
down  the  differencing  strategy  we  need  the  following 


convention: 
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<J)N  —  <j» 


n+ 1  ,  n 


<J>M  =  ij>n  -  <+>n 
D  =  central  difference 

■4~ 

D  =  upwind  difference 
D  =  Type  dependent  difference 
To  be  specific,  we  define  the  operators  in  x-direction, 


D  <t>  .  = 
XY  l 


*i+r*i-i 

2  Ax 


<p  ■  ~  $ .  , 

*  (  VT--')  i  f  u  >  0 


uD  <b.  a  i 


fU  '  Ax 


)  if  u  <  0 


for  subsonic  point 
for  supersonic  point  . 

1. 1  On  interior  point  of  computational  domain 

The  potential  flow  equation  in  Cartesian  coordinates 
locally  aligned  with  the  natural  coordinates  system  assumes 
the  canonical  form  [21] 

*tt  +  2q*st  =  (a2-q2)»ss  +  a\.J 
with  q  =  (u,v)  the  velocity,  s  and  N  are  coordinates  in  the 
local  stream  and  normal  directions. 


Basically,  the  velocity  components  u  and  v  at  the 
grid  point  are  evaluated  by  using  central  difference  at 


time  level  n.  The  $  term  in  the  Bernoulli  equation  is 
evaluate^  by  backward  difference  in  the  natural  way. 

1.11  For  term,  central  difference  will  be  used  for 

temporal  derivative, 


'  tt 


(At) 


'  r  “  •*  -4  / 


(At)2 


(<j>N-$M) 


1.12  For  contributions  to  upwind  differences 

will  be  used  for  all  spatial  derivatives  and  central 
difference  will  be  used  for  temporal  derivaqives, 


2<Mst  *  2u«Kt  +  Jv*yt 
=  (2uB.+2vb  _)<;> 


X  y  ’  v  t 

,n+l  n-1 

-  (2u6x«v6y)  - ) 


=  — ' (uDx+vD  )  (<frN+$M>. 


1,13  For  contributions  to  <fc  ,  type  dependent  differences 

s  s 


will  be  used  for  all  terms.  The  term  +  is  substituted 

n+1. . n-1 


,  . ,  n+1  .  n-1  n 

by  the  mean  of  ^  and  i*  ,  i.e.,  =  *- 


+J_ 


$  =  -rr(u2<{>  +2uvif.  +  v%  ) 

fss  ^2  ^  xx  xy  yy 


~(v2D  +2uvD  +v2D  )  ( 
2  xx  xy  yy 


,n+l  n~l 
I _ t± _ 1 


=  -4t(u2D  +2uvD  +v2D  )  (^ 


f  N  —  f  M  +-  2  if 


1.14  For  contributions  to  central  differences  will 

_ NN 

be  used  for  ail  terms.  The  term  <}>n  is  again  replaced  by 

..  ,  .n+1  .  n-1 

the  mean  of  <J>  and  $ 

1  ?  *> 

A....  =  — (v~6  -2uv<J>  +u  <♦>  ) 

^UN  ^2  xx  H  xy  yy 

1  2_  „  _  .  2_  ,  <(J>N-4M+2(fn> 

=  -i-(v  0  -2uvD  +u  D  )  3 - )  . 

2  xx  xy  yy  2 

q  ' 

Finally,  the  finite  difference  approximation  can  be 
written  as 


+  c4r(u0  +vD  )  (4>!4+(J)M) 

7777  4t  *  Y 


*  4  '^“xx-^xy^V  ~  ' 

q 


2  2  2 

(:!£—)  (u?D  f2uv5_.+  v?5....) 


l+AtuDx+AtvDy-( - *-)  (^-)  (u-Dxx+2uvDxy+VDyy 

2  2 

-  22(4f->(v?.Jxx-2uv-5)ty+u-Dyy]ttI 


2  2  2 
2  [(S-^a .)  („2nxx«JUvD  *v25vv)  *  S_(v2Dxx-2uvn!(y+u2Dyy) 


♦  [  1-  (At)  <UD  +  vt>  1  -  -  y— (- 


x  y 


2  2  2  0  9_ 
-(a -I5L-)  (u"D  +2uvD  + v  u  ) 


xx  xy  yy 


2  2 

u'-LL./fL.)  (v20  -2uvD  +u2D 


(1) 
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The  discretization  errors  associated  with  the  finite 
•H  f fo re nee  approximation  is  of  first  order  in  space  and 
second  order  in  time.  The  leading  error  terms  in  the 
space  derivative  introduce  the  desired  shock  viscosity. 

The  system  of  algebraic  equation  generated  by  the  equation 
( i )  is  large  and  cannot  be  solved  efficiently.  However, 
this  equation  can  be  factored  wi thin  the  same  order  of 
accuracy  in  time  and  space  by  the  spirit  of  splitting 


technique.  The  following  factorization  Kas  been  tested 


and  found  to  be  numerically  stable  with  time  steps  much 


larger  than  the  time  step  allowed  by  the  CFL  condition 

2  an 

for  explicit  methods.  Let  M  =  q“/a'' 


lx  =  !  i  +  -.tubx  + 


■T'T-xA cx+v2dxx>] 


L  =[!+..'  tv6  +  ~~  v2D 


-L'id,  (v25yy+u2Dyy, , 


Then,  the  approximate  factorization  of  the  equation  (1)  can 
be  written  as 


L  -L  IN  =  PUS  (2) 
x  y 

This  f  act.ori  zat  i  on  reduces  the  large  complicated  matrix 
inversion  problem  to  two  one-dimensional  problems.  The 
algorithm  can  be  expressed  as 


(  L  X  =  RHS 
x 

L  fN  =  X 

y 


As  before,  we  assume  that  both  pressure  and  normal 
velocity  components  are  continuous  across  the  wake  which 
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is  assumed  to  lie  on  a  segment  of  the  x-axis.  The  wake 
condition  is 


+  u[<£  ]  =  0  on  tlie  wake 

where  u  is  the  average  velocity  of  the  upper  and  lower 
wake  velocities. 

The  finite  difference  approximation  is  given  by 


Hence,  once  the  jump  at  the  tail  point  has  been  estimated, 
all  the  jump  in  the  wake  can  be  calculated  from  the  equa¬ 
tion  ( 1 )  . 

We  remark  that  the  artificial  viscosity  we  have  added 
in  the  finite  difference  scheme  is  of  amount 


fh  (sign  u)  uu  .  +  k  (sign  v)  vv  } 

x  o  y  t 

+  u(h(sign  u)u(uu  +vv  )  +  k  (sign  v)v(uu  +vv  )} 

xx  xx  yy  yy 

with  t  =  max  {0;  (1  -  — y)),h  =  ,'x,  and  k  =  Ay. 

The  term  in  first  braces  is  an  advection  viscosity  which  will 
damp  out  some  noise  generated  either  by  the  artificial 
boundaries  or  the  body  surface.  The  term  in  second  braces 
is  the  desired  shock  viscosity.  The  whole  artificial  vis¬ 
cosity  can  be  cast  into  the  divergence  form 


! '  +  - 
v  v 

2^2 

with  P  -  h  {ismi  u)uu  +  ,i  ipmh  u)u(  r,  >__} 

2_^2 

and  0  -  k  {  (sian  v)vv  +  ufsiqn  v)v(  -  — '  )^} 


Failure  to  maintain  proper  conservation  :'orm  can  result 
in  computed  shock  speeds  that  depend  on  m  l  spacma. 

2 .  Analysis  for  the  Finite  Differencing  Strategy  and 
The  Approximate  Factorization  Process 

We  have  shown  that  the  disturbance  information  in  the 
potential  flow  field  is  propagated  as  the  Doppler  sound  wave 
which  consists  of  the  advection  and  wave  propagation  effects, 
The  potential  flow  equation  is  nonlinear.  As  a  guide  to  the 
stability  of  the  difference  scheme,  we  consider  two  linear 
models,  the  advection  and  the  wave  equations. 

2.1  The  radiation  boundary  conditions  is  modeled  by  the  two- 
dimensional  advection  equation 

6  +  ucfc  +  vi  .  =  0  ( 1 ) 

t  x  j 

Our  finite  differencing  strategy  says  that 
,n+l  n-1  <  <  *,n+1  +  ,tr'"1 

1 - — 1 -  +  (uD+vD  )  (- - ^ - )  =0  (2) 

Z  ‘  ■  L  X  j  ^ 

We  examine  the  amp  li  f  i  cation  of  a  Fourier  mode.  Substi¬ 
tuting  6  =  1  e  for  ,*  at  the  *  -  level,  the  growing 

factor  is  governed  by 

tp2  -  1  =  (pu(e  :  1  )  ■+  q  v  (e  *  '-1 )  )  (  f2  + 1) 
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for  the  case  that  u  •  0  anri  v  '>  0  where  p  =  At /Ax, 
q  =  At/ Ay,  (,  =  mAx,  n  =  nAy.  Hence, 

I  2,2  i  _  j  1-pu  (1-cos  r)-gv(l-cos  ’  ) -i  (pu  sin  •Vrqv  sin  ';)  i  <  ^ 

1  1  |l+pu(l-cos  r)+qv) 1-cos  n) +i (pu  sin  r+q v  sin  n) I 

So  it  is  unconditionally  stable  for  this  case. 

The  scheme  for  the  other  cases  where  either  u,  or  v, 

or  both  of  them  may  be  negative  are  easily  shown  to  be 
unconditionally  stable. 

Mext,  we  examine  the  approximate  factorization  method 
for  this  finite  difference  approximate  for  the  advection 
equation.  Our  approximate  factorization  says  that  (2)  can 
bo  factored  as 

(1+  tub  )  (1+  tvb  )  =  -  U-Atub  )  (1-AtvD  )  M  -2At.(uD  fvD  )  -+n 

x  y  x  y  x  y  ’ 


Hy  Fourier  analysis,  we  substitute  f  =  f Ke^~  ^mx+n^ ^  . 

[1  +  pu  ( 1-e” 1 '  )  ]  [  1  +  qvd-e"1’)  ]  (f2-;) 

--  -[1  -  pu  (l-e_L  '  )  ]  [  1  -  qvd-o'1'  )  }  (  ;-l  ) 

-2 [ pu  ( 1 -o  1  )  +  q v ( i -e  1  )  1 f 


j  1-pu  ( 1-cos  )+ipu  sin  ~  j  I  l-gv(  1-cos  n)+iqv  sin  n  ^  ^ 
j  1  +  pu  (1-cos  ' )  -  i  pu  s  in  C  !!  1+qv  { 1-cos  n)“iqv  sin  n 


We,  therefore,  conclude  that  the  approximate  factorization 
method  does  preserve  the  unconditional  stability  of  our  finite 
li  f fe rencing  strategy  and  that  our  numerical  scheme  ror  the 
advection  equation  is  unconflitional.lv  stable. 
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2.2  As  a  ci ui do  to  the*  difference  scheme  at  the  intt-ri-  > 

noints  of  the  computational  domain,  v,e  cons  icier  the  wave  j.*»t  i  nr. 


<J>.  .  =  <t>  +  <P 

tt  ’xx  yy 


Our  finite  differencing  yields 


,n+l ,  n-1 

D.  <fcn  =  ID  +  D  )  ^ - - 

tt  xx  yy  2 


»  -  T"  (Dx>2Dyy”iN  *  "  -  T-  IDxdDyy>!:" 


:‘t2  n  4-D 

>;  >:  v v 


Substituting  6  =  e  ^  kt+rnx+n>  )  anc,  letting  .  -  k..t  , 
we  have 


7  2 

(cos  «'-l)  =  [p“  (cos  1)  +  q  (cos  n-  1  )  J  cos 


L  +  v  (1-  cos  ■■'.)  +  q“ ( ] -  cos  " ' 


As  loin  as  p,q,  are  real ,  ■>  is  real  for  ai  !  \  an  d  \  .  ini 

means  that  the  f i n i to  difference  anprnxi mat  ion  is  ancon.;  it: 


stable  . 


Mext,  our  approximate  factorization  preserves  this 


property  and  permits  ns  to  solve  the  large  algebraic 
system  easily.  Indeed,  if  we  write 


r  ]  _  _L_  r>  i  i  ;  -  .  —  -  n 

2  xx 1 '  2  yy 


=  [1 


xx 


f]  -  -4—  D  ]*M  +  :'.t2  (D  +D  )$n 

O  IMT  j  f  '  VV  T  T\  7 


yy 


xx  yy 


Let  1 


i  (k  t+nx+ny )  , 

>  ,  we  ha 


ve 


COS  uj  = 


l+p"g  (1-cos  Q  (1-cos  n) 


l  +  p2(l-cos  f)+q2(l-cos  n) +p2q2 ( 1-cos  F,)  (1-cos  n] 


For  all  real  p  and  q,  is  real  if  F  and  ^  are  real.  In 
other  words ,  t  is  real  whenever  x  and  y  are  real.  This  means 
that  the  scheme  is  unconditionally  stable. 

Finally,  we  remark  that  the  scheme  has  no  time  step 
t.  restriction  based  on  a  linear  stability  analysis. 

However,  in  actual  computation,  an  instability  can  be 
oenerated  by  the  motion  of  shocks  across  which  the 
differencing  switches  from  upwind  to  central.  To  prevent 
this  instability  from  occurrina,  it  has  been  found  in 
practice  that  the  time  step  It  must  be  chosen  small  enouqh 
that  such  shocks  do  not  move  a  distance  areater  than  one 
spatial  qrid  point  per  time  step.  This  restriction  is 
necessary  to  maintain  time  accuracy  anyway,  and  it  is  much 
less  severe  than  the  time  step  At  restrictions  associated 
with  explicit  methods. 
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V.  COMPUTATIONAL  RESULTS 

Our  computer  code  UFL05  consists  of  steady  and  unsteady 
modes.  The  steady  mode  is  the  standard  line  relaxation 
scheme  for  the  steady  equation.  We  use  it  to  generate 
a  good  initial  guess  for  the  unsteady  mode.  In  fact, 
any  steady  potential  flow  solver  can  be  used  to 
replace  this  steady  routine.  The  unsteady  mode  can 
also  be  used  to  compute  the  steady  solution.  In  this  section 
we  first  check  the  unsteady  mode  by  calculating  some  steady 
solutions.  Then  we  present  some  computational  results  for 
conventional  and  supercritical  wing  sections  in  rigid  body 
motion . 

1 .  Steady  Calculations 

As  a  test  case,  steady  state  calculations  for  the 
NACAOOl 2  airfoil  at  Mach  number  9.79  and  angle  of 

attack  rx  =  n 0  are  performed  by  the  standard  line  relaxa¬ 
tion  method  for  the  steady  equation  and.  by  the  unsteady 
scheme.  The  two  modes  produce  virtually  identical  results. 
The  time  step  size  for  the  unsteady  mode  in  this  calculation 
is  set  to  At  =  19 Ax  which  is  much  larger  than  the  time  step 
allowed  by  the  CFL  condition  for  the  explicit  method.  For 
a  coarse  mesh  of  32  *  a  grid,  points,  the  time  required  to 
converge  to  the  steady  state  using  the  unsteady  mode  is 
comparable  to  the  steady  mode. 


-sat 
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The  optimal  location  of  the  artificial  boundary  is 
problem  dependent.  If  the  artificial  boundary  is  moved 
too  close  to  the  airfoil,  instability  can  occur.  The 
computational  domain  shown  in  Figure  8c  has  also  been 
used  for  the  NACA0012  airfoil  at  M  =0.79  and  a  =  0°. 

ao 

Note  that  the  upstream  boundary  is  about  1.5  chord 
lengths  from  the  nose  as  compared  to  a  distance  of  about 
10.5  chord  lengths  used  for  the  above  example.  The  ratio 
At/Ax  is  given  the  value  10  as  above.  The  correction  is 
observed  to  decrease  much  more  slowy  in  this  case.  Since  the 
grid  system  is  stretched  in  the  code,  the  reduction  in  the 
computational  mesh  is  not  linearly  proportional  to  the  physical 
distance  of  the  boundary  from  the  airfoil.  The  benefit  obtained 
by  the  reduced  number  of  mesh  points  is  overshadowed  by  the 
reduced  numerical  stability. 

There  is  no  difficulty  in  calculating  flows  with  sonic 
flight  speed.  A  Joukowski  airfoil  at  =  1  and  a  =  0° 
is  chosen  as  an  example,  with  the  ratio  At/ Ax  set  to  3.5 
in  this  case.  Usually,  the  numerical  stability  of  the  un¬ 
steady  mode,  in  terms  of  the  ratio  At/Ax,  decreases  with 
either  flight  speed  or  angle  of  attack. 

2 .  Unsteady  Calculations 

The  NACA0012  airfoil  and  KORN  airfoil  (75-06-12)  are 
chosen  as  prototypes  for  conventional  and  supercritical 
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airfoils,  respectively.  Both  airfoils  have  the  same  thick¬ 
ness  to  chord  ratio.  The  rigid  body  motion  of  an  airfoil 
can  be  described  by  three  parameters:  angle  of  attack, 
flight  speed,  and  flight  angle.  We  consider  the  flow  past 
each  airfoil  when  these  parameters  are  varied  separately. 

2 . 1  Variation  of  flight  speed 

First,  we  consider  the  acceleration  of  the  airfoil  in 
the  streamwise  direction.  That  is,  the  airfoil  moves  with 
a  sinusoidal  variation  in  flight  speed  but  with  flight 
angle  and  angle  of  attack  fixed. 

In  Figure  11  a,D,c,  for  the  NACA0  012  airfoil,  as  the  flight 
speed  increases  (decreases),  the  supersonic  region  grows 
(shrinks)  in  size  and  the  shock  strengthens  (weakens)  and 
moves  aft  (fore).  The  shock  wave  displacement  can  also  be 
observed  in  the  pressure  distributions  in  Figure  11  d.e.f.,  or 
from  the  position  of  peaks  in  the  traces  of  pressure  sensors 
on  the  upper  surface  of  the  airfoil  in  Figure  11  g  .  The 
peaks  in  those  local  pressure  traces  are  produced  as  the 
shock  wave  passing  by  the  pressure  sensors.  The  nonsinusoidal 
trace  curves  demonstrate  the  nonlinear  transonic  effects 
caused  by  the  shock  wave  displacement.  The  same  calculations 
for  the  KOKN  a:rfoil  appear  in  Figure  12.  The  unsteady 
loading  distributions  are  shown  in  Figure  12  e,f,  where 
peaks  in  the  loading  distributions  are  anain  due  to  shock  waves. 
The  loading  is  the  difference  of  lower  and  upper  pressure 
coe  f  f icients . 
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2 . 2  Variation  of  angle  of  attack 

Next  we  consider  the  pitching  airfoil  which  moves  with 
a  sinusoidal  variation  of  the  angle  of  attack,  but  with  the 
flight  velocity  fixed.  Small  variations  in  angle  of  attack 
may  lead  to  considerable  changes  in  the  pressure  distribu¬ 
tion,  shock  position  and  shock  strength.  As  shown  in 
Figure  9  a,b,c,  for  the  NACA0012  airfoil,  when  the  angle  of 
attack  increases  (decreases),  the  supersonic  region  on  the 
upper  surface  of  the  airfoil  grows  (shrinks)  in  size,  and 
the  shock  wave  strengthens  (weakens)  and  moves  aft  (fore). 

In  Figure  9j  the  nonsinusoidal  trace  of  the  pressure  at  loca¬ 
tion  *6  on  the  airfoil  surface  clearly  displays  the  shock  wave 
movement.  The  unsteady  pressure  loading  distributions  are 
shown  in  Figure  9g,h,i. 

The  same  calculations  were  performed  for  the  KORN  airfoil 
as  shown  in  Figure  10.  It  is  worthwhile  noticing  that  the 
unsteady  traces  of  the  local  pre-sure  sensors  for  the  KORN 
airfoil  are  much  more  nonlinear  than  those  for  the  NACA0012 
airfoil.  This  pattern  is  also  observed  in  the  loading  distri¬ 
bution  for  the  two  airfoils.  The  fact  that  the  shock 
excursion  amplitude  decreases  with  an  increase  in  oscillatory 
frequency  can  be  seen  from  the  unsteady  traces  of  the  pressure 
sensor  *6  in  Figure  9  j,k,l. 

2 . 3  Variation  of  flight  angle 

Finally,  we  consider  chanqes  in  the  airfoil's  fliqht 
angle  while  keeping  the  anqle  of  attack  and  fliqht  speed 


fixed.  The  motion,  for  angle  of  attack  a  =  0,  of  the  air¬ 
foil  is  described  in  Figure  7. 


Figure  7.  The  Chords  of  Airfoils  are  Tanqent  to  the  Flight 
Trajectory . 

The  characteristics  of  this  case  are  similar  to  those  of 
the  pitching  airfoil.  Computational  results  for  the 
NACA00 12  and  KORN  airfoils  are  shown  in  Figures  13  ana 
14  ,  respectively. 
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VI.  CONCLUSION 


1 .  Summary  of  the  Work 

A  numerical  method  has  been  presented  for  determining 
the  inviscid  transonic  flow  past  airfoils  in  rigid  body 
motion.  The  method  is  based  on  the  unsteady  transonic  po¬ 
tential  flow  equation  in  a  computational  domain  designed 
for  accurate  application  of  the  body  surface  boundary  con¬ 
dition.  A  set  of  first  order  radiation  boundary  conditions  are 
applied  at  the  artificial  computational  boundaries  located  at  a 
finite  distance  away  from  the  airfoil  surface.  The  finite  differ 
ence  approximations  of  the  potential  flow  equation  and  radiation 
boundary  conditions  are  constructed  by  using  a  type  dependent 
differencing  strategy.  The  leading  truncation  term  provides  the 
necessary  dissipation  to  stabilize  the  scheme  and  to  capture  the 
shock  waves  automatically.  The  tinite  difference  approximations 
are  perturbed  within  the  same  order  of  accuracy  in  order  to 
permit  their  factorzation  into  one-dimensional  operators.  Conse¬ 
quently,  the  problem  can  be  solved  efficiently  by  using  a 
5-diagonal  matrix  solver.  The  resulting  algorithm  is  a  time 
marching  scheme  without  any  iteration  process  in  each  time  step. 

Numerical  experiments  show  that  the  scheme  is  very 
stable.  The  results  presented  in  Section  V  demonstrate 
that  the  method  is  able  to  resolve  the  highly  nonlinear 
transonic  flow  effects  for  flutter  analysis  of  airfoils  as 
long  as  the  boundary  layer  remains  attached. 


Our  numerical  method  can  be  extended  to  three  space 


dimensional  problems.  An  important  application  is  the  un¬ 
steady  transonic  flow  past  wing-body  combinations  that 
model  our  airplane.  The  necessary  geometric  mapping  tech¬ 
niques  are  available  in  analysis  codes  that  compute  steady 
flow  past  a  wing-body  combination  [27].  Singularities 
associated  with  the  geometric  mapping  would  not  be  a 
serious  problem  and  could  be  treated  in  a  manner  similar 
to  the  one  used  in  the  steady  calculation.  A  further 
application  could  be  the  helicopter  rotor  in  forward 
flight.  Here  the  flow  is  unsteady  because  of  the  relative 
velocity  of  the  advancing  and  retreating  blades  [8]. 

In  principle,  shock  accuracy  would  be  improved  by 
shock  fitting  methods  [45]  or,  alternatively,  by  the  use 
of  a  difference  scheme  in  conservative  form.  In  practice, 
however,  a  turbulent  boundary  layer  correction  would  be 
needed  for  more  exact  shock  jump  modeling  [10,  13,  35]. 
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MEAN  FLIGHT  RNGLE=  0.00  AMP=20.00  FREQ  RATE=  .cu 

Fiqure  1 3  j 
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Figure  14c 
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FSPEED 


PHASE  ANGLE 


KORN  AIRFOIL 

UNSTEADY  TRACES  OF  AIRFOIL  IN  SINUSOIDAL  RIGID  BODY  MOTIC: 
MEAN  ATTACK  ANGLE=  0-00  AMP=  0-00  FREQ  RATE=  O-OC 
MEAN  FLIGHT  SPEED=  .75  AMP=  0.00  FREQ  RATE=  O-OC 
MEAN  FLIGHT  ANGLE=  O-GO  AMP=20.00  FREQ  RATE=  .30 


Fiaure  1 4 i 
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APPENDIX 


A .  A  5-Diagonal  Matrix  Solver 

Here,  we  present  a  method  of  solving  a  5-diagonal 
matrix  problem.  Suppose  Ax  =  y  is  solved  for  x,  where 
x  and  y  are  n*l  column  vectors  and  A  is  of  the  form 


dn-2  bn-2  an-2  cn-2  en-2 

^-1  bn-l  an-l  cn-l 

d  b  a 
n  n  n 

Assume  the  matrix  can  be  factored  in  the  tridiagonal  form 


«1 

1  Y1  el 

82  a2 

1  Y2  r  2 

^  3  8  ^  ®  ^ 

•  •  • 

•  ■  • 

•  •  • 

1  Yn-2  Cn-2 

•  •  • 

1  Vl 

6  B  a 

1 

n  n  nj 

; 
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Then  we  find 

6  . 

=  d. 

l 

l 

6  .  y  .  _ 

+8.  =  b. 

l  1-2 

l  i 

(1)  6  .  £  .  . 

+  8  ■  Y  •  i  +  cl  . 

l  1-2 

li-l  l 

8  •  £  ■  , 

+  a.  y .  =  c  . 

i  l-l 

ii  i 

a  . 

=  e . 

> 

l 

i 

; 

for  i  =  1 ,  .  .  .  ,  n 

if  the  default 

' 

zero.  Namely, 

=  dL  =  d2  =  c; 

B1  =  61  =  62  =  Yn 

en-l  en 

« 

l 

solved  as 

(2) 


6,  =  d. 


6i  =  bi  '  Yi-2di 

°i  =  ai  -  Vi-1  -  Vi-2 

Yi  =  (cr  BiGi-i)/ni 


ei 


ei/ai 


for  i  =  in  ascending  order  if  none  of  the  vanish. 

The  intermediate  step  Lg  =  y  becomes 

6 . g .  _  +  8 ,  g  •  ,  +  a.g.  =  y.  for  i  =  l,...,n, 

1  1  b  1  x  x  X  X  X 

we  can  solve  this  system  recursively  in  ascendina  order. 

Namely, 


H) 


for  i  =  l,...,n,  if  the  default  values  q_  ^  =  q  ^  =  0- 


i  iiifc  iffciaiifcaai 
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The  final  step  Ux  =  g  is  expressed  by 

xi  +  +  e ixi+2  =  gi  for  i  =  l' 

where  xn+^  =  xn+2  =  T^e  system  can  be  solved  in 

descending  order  recursively  as 


xi  =  gi  "  Yixi+1  "  eixi+2  for  1  =  n . 1' 


We  remark  that  the  LU  factored  form  is  not  unique; 
for  example,  L  and  U  can  be  the  following 


B .  Computer  Program  VFL05 

Operation  of  the  Program 

The  sheared  parabolic  coordinates  described  in  Sec¬ 
tion  III, 3  are  introduced.  The  input  parameters  XSING 
and  YSING  determine  the  location  of  the  singular  point 
about  which  the  square  root  transformation  is  made.  It 
is  important  to  choose  these  two  parameters  so  that  the 
unfolded  profile  does  not  have  any  sharp  bumps.  The 
mapped  coordinates  are  printed  so  that  this  can  be 
checked. 

The  difference  scheme  for  the  steady  routine  used  to 
initialize  the  calculation  is  in  fact  the  standard  line 
relaxation  method.  Faster  convergence  is  usually  obtained 
by  using  horizontal  relaxation,  y-sweep,  marching  toward 
the  body.  The  difference  scheme  for  the  unsteady  routine 
conforms  closely  to  the  description  in  Section  IV,  1.  It 
is  implemented  in  the  computational  domain  described  in 
Section  III,  3  as  first  performing  a  y-sweep,  marching 
toward  the  body  with  horizontal  lines,  then  followed  by  an 
x-sweep,  with  vertical  lines  marching  from  left  boundary 
toward  right  boundary  of  the  computational  grid. 

The  initial  values  of  the  time  dependent  problem  are 
provided  by  either  using  unsteady  mode  alone  or  using  both 
steady  and  unsteady  modes.  ^he  program  contains  a  switch 
for  the  choice.  For  fine  mesh,  such  as  128  *  32,  the 
method  employing  both  modes  is  recommended.  A  run  using 
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both  modes  can  be  described  as  follows.  First,  using 
steady  mode,  calculations  are  first  performed  on  a 
coarse  mesh  and  then  on  a  fine  mesh  with  twice  as 
many  intervals  in  each  coordinate  direction.  The  coarse 
mesh  result  is  interpolated  to  provide  the  starting 
guess  for  the  fine  mesh.  It  usually  consists  of  200 
cycles  on  coarse  mesh,  32  *  8,  followed  by  100  cycles  on 
a  fine  mesh,  64x16,  50  cyles  on  a  finer  mesh  128*32. 

The  resulting  reduced  velocity  potential  is  used  as  the 
starting  guess  for  the  steady  iteration  using  the  unsteady 
routine.  After  75  cycles  in  this  steady  iteration  step, 
we  begin  our  time  marchinq  calculation.  A  better  initial 
value  can  be  obtained  after  one  complete  periodic  cycle. 
Computational  results  show  that  the  difference  between  the 
second  and  the  third  period  cycles  is  small.  We  therefore 
consider  the  results  from  the  second  period  as  our  desired 
output. 

The  input  data  deck  for  a  run  is  arranqed  to  include 
title  cards  listing  the  required  data  items.  The  complete 
set  of  title  cards  provides  a  list  of  all  the  data  which 
must  be  supplied  and  can  be  used  as  a  guide  in  setting  up 
the  data  deck.  Each  title  card  is  followed  by  a  card 
supplying  the  numerical  values  for  the  parameters  listed. 
The  input  parameters  are  given  in  the  Glossary  in  the  order 
of  their  appearance  on  the  data  cards.  All  data  items  are 
read  in  as  floating  point  numbers  in  fields  of  10  columns. 


A 
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and  values  representing  integer  parameters  are  converted 
inside  the  program.  The  data  deck  for  NACA  0012  at 
M  =  0.79,  a  =  0°  +  1°  sin  kt  is  shown  in  Table  l  . 

The  output  consists  of  printout  and  Calcomp  plots. 

The  program  prints  the  mapped  coordinates  of  the  airfoil 
generated  at  the  mesh  points  of  the  computational  grid. 
Parameters  such  as  mesh  size,  flight  speed,  flight  angle, 
angle  of  attack  are  also  printed  so  that  the  case  can  be 
identified  easily. 

For  each  iteration  using  the  steady  routine  the 
program  prints  the  iteration  number,  the  maximum  correction 
to  the  reduced  velocity  potential,  and  the  maximum  residual 
for  the  steady  flow  equation  together  with  the  coordinates 
of  the  point  where  these  occur  in  the  computational  grid,  the 
circulation,  the  relaxation  factor  pi,  p2 ,  p3,  and  the 
number  of  supersonic  points.  After  a  maximum  number  of 
cycles  has  been  completed  or  a  convergence  criterion  has  been 
satisfied,  the  angle  of  attack,  flight  speed,  flight  angle, 
lift,  drag  and  moment  coefficients  are  printed.  If 
desired,  the  pressure  distribution  along  the  airfoil  surface 
and  a  chart  of  the  local  .Mach  numbers  can  be  printed. 

If  the  mesh  is  to  be  refined,  the  program  then  repeats 
the  same  sequences  of  calculations  and  output  on  the  same 
mesh.  A  Calcomp  plot  is  generated  to  show  the  pressure 
distribution  over  the  airfoil  on  the  finest  mesh  at  the 
end  of  this  subroutine. 


j 
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For  a  steady  iteration  using  nonsteady  mode,  the 
program  first  prints  the  flight  conditions,  the  mesh  size, 
and  the  dimensionless  time  step.  After  each  iteration, 
the  program  prints  the  maximum  change  in  the  velocity 
potential  with  the  coordinates  of  the  point  in  the  grid 
system.  If  desired,  the  pressure  distribution  alonq  the 
airfoil  and  the  local  Mach  number  chart  can  be  printed. 
Calcomp  plots  for  the  pressure  distribution,  the  leading 
distribution,  and  the  supersonic  zone  over  the  airfoil  are 
generated  separately  at  the  end  of  this  step. 

Before  the  unsteady  time  marching  process,  the 
advanced  time  steps  required  to  finish  the  assigned  period 
is  estimated  and  printed.  After  one  complete  period  has 
been  computed  the  flight  conditions  together  with  the 
aerodynamic  forces,  lift,  drag  and  moment  coefficients,  are 
thereafter  printed  periodically.  If  desired,  the  pressure 
distribution  over  the  airfoil  is  also  printed.  Calcomp 
plots  for  the  pressure  distribution,  the  loading  distribu¬ 
tion,  and  the  supersonic  zone  over  the  airfoil  are 
generated  periodically.  At  the  end  of  the  calculation  the 
unsteady  traces  of  the  airfoil  motion  and  the  grid  system 
near  the  airfoil  are  plotted.  The  graphs  can  also  be 
produced  as  individual  frames  in  a  film  strip.  Then  a 
complete  history  of  the  time  dependent  motion  will  be  visible. 


The  input  parameters  are  lifted  in  the  order  of 

their  occurrence  on  the  data  title  cards. 

Title 

Card  1 

ISYM  Indicates  the  type  of  profile. 

ISYM  =  0  denotes  a  cambered  profile.  Coordinates 
are  supplied  for  upper  and  lower  surfaces,  each 
ordered  from  nose  to  tail  with  the  leading  edge 
included  in  both  surfaces. 

ISYM  =  1  denotes  a  symmetric  profile. 

A  table  of  coordinates  is  read  for  the  upper  surface 
only. 

NU  The  number  of  upper  surface  coordinates. 

NL  The  number  of  lower  surface  coordinates. 

For  ISYM  =  1,  NL  =  NU  even  though  no  lower  surface 
coordinates  are  given. 

NX  The  number  of  mesh  cells  in  the  direction  of  the 

chord  used  at  the  start  of  the  calculation.  NX  =  0 
causes  termination  of  the  program. 

Ny  The  number  of  mesh  cells  in  the  direction  normal  to 

the  chord. 

MHALF  Determines  whether  the  mesh  will  be  refined. 

MHALF  =  0.  The  computation  terminates  after  completing 
the  prescribed  number  of  iteration  cycles  or  after 
convergence  for  the  input  mesh  size. 
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MHALF  ^  0.  The  mesh  spacing  will  be  halved  after 
N RE LAX  cycles  have  been  run  on  the  crude  mesh  size. 
The  refinement  will  be  performed  MHALF  times. 

RSTAD  Determines  whether  the  steady  mode  will  be  employed. 
RSTAD  =  0.  The  steady  mode  will  not  be  called, 
the  steady  flow  calculation  entirely  depends  upon 
the  unsteady  mode.  RSTAD  =  1.  Both  steady  and 
unsteady  modes  are  employed  for  the  steady  flow 
calculation . 

STADI  Indicates  the  type  of  flow  calculation. 

STADI  =  1.  The  computation  is  running  for  the 
steady  state  solution.  STADI  =  0.  The  computation 
is  a  time  dependent  run. 

Title 

Card  2 

N RE LAX  The  maximum  number  of  iteration  cycles  which  will  be 
computed  in  the  steady  iteration  process. 

RELAXTO  The  desired  accuracy.  If  the  maximum  correction 
is  less  than  RELAX  TO  the  calculation  terminates 
or  proceeds  to  a  finer  mesh;  otherwise  the  number  of 
cycles  set  by  N RE LAX  are  completed. 

CHECKPT  Determines  whether  the  CHEKPTX  is  required. 

CHEKPTX  =  1.  The  CHEKPTX  is  called. 

Title 

Card  3 


COORS  The  stretching  factor  in  the  x  coordinate  stretching 
transformation  described  in  Section  III,  3. 
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COORT 


RCBDY 

Title 
Card  4 

P10 


P20 


P30 


P101 

P102 

P103 


Title 
Card  5 

FREQRA 
MAP  LA 


FREQRM 

AMPLM 


FREQRC 

AMPLC 


The  stretching  factor  in  the  y  coordinate  stretchinq 
mapping  described  in  Section  III,  3. 

To  locate  the  computational  boundaries. 


The  subsonic  relaxation  factor  for  the  reduced 
potential  in  the  steady  flow  calculation  routines. 
It  is  between  1.  and  2.  and  should  be  increased 
towards  2.  as  the  mesh  is  refined. 

The  supersonic  relaxation  factor  for  the  reduced 
potential  in  the  steady  routine.  It  is  not  greater 
than  1.  and  normally  set  to  1. 

The  relaxation  factor  for  the  circulation.  It  is 
usually  set  to  1.  but  can  be  increased 

The  increments  of  P10  as  the  mesh  system  is  refined 
1  time,  2  times  and  3  times,  respectively. 


The  frequency  rate  (rad/time)  and  amplitude  (degree) 
of  the  sinusoidal  variation  of  angle  of  attack  (in 
degrees) . 

The  frequency  rate  and  amplitude  (mach  number)  cf  the 
sinusoidal  variation  of  flight  speed  in  mach  number. 

The  frequency  rate  and  amplitude  of  the  sinusoidn . 


variation  of  flight  angle  in  degrees. 
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PERIOD  The  complete  sinusoidal  periods  to  be  calculated. 
DEGREE  The  degree  interval  to  plot  the  graphs,  pressure 
distribution,  the  loading  and  the  supersonic  zone 
over  the  airfoil. 

Title 
Card  6 

ALPHAl  The  angle  of  attack  in  degrees. 

MACH1  The  flight  speed  in  mach  number.  The  speed  of  sound 
at  infinity  is  set  to  be  unity. 

THETAl  The  flight  angle  in  degrees 

TSRATIO  The  ratio  At/Ax,  .  .  between  time  step  and 

(min)  r 

minimum  spacial  step. 


Title 

Card  7 

TE  ANGLE  The  included  angle  at  the  trailinq  edge  in  degrees. 
The  profile  may  be  open,  in  which  case  it  is  the 
difference  in  angle  between  the  upper  and  lower 
surfaces . 

TE  SLOPE  The  slope  of  the  mean  camber  line  at  the  trailinq 

edge.  This  is  used  to  continue  the  coordinate  surface, 
assumed  to  contain  the  vortex  sheet,  smoothly  off  the 
trailinq  edqe. 

The  coordinates  of  the  singular  point  inside  the  nose 
about  which  the  square  root  transformation  is  applied 
to  generate  parabolic  coordinates.  This  point  should 
be  located  as  symmetrically  as  possible  between  the 
upper  and  lower  surfaces  at  a  distance  from  the  nose 


XSING 

YSING 
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roughly  proportional  to  the  leading  edge  radius. 

It  can  be  seen  whether  the  location  has  been  correctly 
chosen  by  inspecting  the  coordinates  of  the  mapped 
profile  printed  in  the  output.  If  the  mapped 
profile  has  a  bump  at  the  center,  the  singular  point 
should  be  moved  closer  to  the  leading  edge.  If  the 
mapped  profile  is  not  symmetric  near  the  center, 
with  a  step  increase  in  y,  say,  as  x  increases  through 
0,  the  singular  point  should  be  moved  closer  to  the 
upper  surface. 

Title 
Card  8 

X 

Y  The  coordinates,  upper  surface  coordinates,  of  the 
THETA 

upper  surface  and  its  tangent  angle  in  degrees. 

These  are  read  on  the  data  cards  which  follow,  one 
pair  of  coordinates  and  its  tangent  angle  per  card 
in  the  first  three  fields  of  10  from  leading  to  trail¬ 
ing  edge  inclusive. 

Title 
Card  9 

X 

Y  The  coordinates  and  its  tangent  angle  at  the  lower 
THETA 

surface,  read  from  leading  to  trailing  edge.  The 
leading  edge  point  is  the  same  as  the  upper  surface 
leading  edge  point.  The  trailing  edge  point  may  be 
different  if  the  profile  has  an  open  tail. 

Title 
Card  10 

End  of  the  calculation. 


i 
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ISYM  NU  NL  NX  NY  MHALF  RSTAD  STADI 


37.  37.  32. 


RCBDY 


0.94  0.8 


P10  P20  |  P30  !  P101  P102  |  P103 


19  .58 


FREQRA  1AMPLA 


AMPrn  FREQC  AMPLC  I  PERIOD  DEGREE 


2.  90. 


ALPHAl  MACH  TEETAl  I TS RATIO 


3.  LIFTING  If-  Th t  R*.  ;jrfr 


RkUGE  AV,  JFLrt»(INPUT»CurPljT*TAHtt>*I‘'Pi.f*Tif'ir*'JoTPtT»IAPfc<}6*00TPUT# 
1  TARF7) 

c  i he  analysis  ;f  transonic  h;.,  ^ast  airi-jil  in  rigid  body  motion 

C  THE  UNSTEADY  TPA.NSjMC  R  u  T  E  N  T  i  a  L  FlJ«  F-dATIjN  »ITh  RADIATION 

C  aJUNuARY  CONDITIONS  IN  MOVING  SHEARfcL  FARAjGlIC  COORDINATE  SYSTEM 

C  ARE  SOLVED  BY  Af.  ALTERNATING  DIRECTION  IMPLICIT  SCHEME  WITH 

C  RIVE  DIAGONAL  MATRIX  SjLVEr 

C  RRJGPAMMtD  BY  I-ChGnG  CHAN  S  0  G  R  I N  L>  iEPTEMBLR  19BC 

C  0  IS  THE  VELCCITY  POTENTIAL  IN  THE  ABSLLUTE  FRAME 

CuM.M^N/ A/  GM  (132,3o  ),g(L32,  St),  G,N  (132,  36)»S0(132)#Sl(132),S2ll32) 

1  t  A0( 13?)  *  A1 ( 1  A  2 ) >  A2  (  132)>A3(132)>B0(36)  »B1(36)>62(36) 

2  , tl3( 36 ) , NX»NY»  I  XI# I X2nrSYM, FMACH,  ALPHA >C A»  SA»  FMACH2 

3  ,AL,UTIM>C6,So,NS»RG>lG,Jo 
CUMMuN/3/  SV(132)>SM(132)»CP(132) 

CLMMON/C /  XP (  260 ) , YP ( 260  ) , D1 ( 26  0) »D2 ( 260) , 03 ( 2b0 ) 

CCMMGN/D/  SLOPT,  miLoCAL 
COMMON /F  /  ChORC, XM, CL» CD»CM 
COMMON/ F /  XR>YRUS>XS<50C)»YS(  5  00) 

COMM  EJ  ,n  /  G  /  TITLE (20) » IPLUT 

COMMON /H/  DX,UY,DT,DXX,DYY,DTT,DXY,DXT,DYT,TSR 
CuMMON/I/  X(260)»Y(760) 

COMMON/  J  /  RAD>PUALS>ALUALTT,AMPLA,FREjRA*FA$AGA>FMACHS>FMACHT 
1  ,AMPLM,FREQrM,FASAGM,CETAS,CFTAT,CETATT,AMPlC>FREQRC>FASAGC>CETA 
?  ,FRF*P, IPSOFE 

CCMMON/K/  I0>  11/12/ I3fJl>J?>J3 

COMMON /L  /  TCL{«01UTCD(801UTCM<eClUTCP<9,8Ql),TCP$(9>»CLS»C0S 
1  >  CMS  ITS*  1JJMP>N  STEP#  J  STEP#  PERIOD*  MHALF 

COMMON/M/  P1*P?,?3>TAU 
COMMON/U/  CUORS^CUDRT 
COMMON/ 5  TAD  1/  RR,IR,jR,IrSTAD 
CCMMC  ,n/„AKE  /  NIT»wG(132) 

^ATA  VAR/O/ 

1 w  E  AD  -  5 
UR  IT  *  6 

I F  LOT  =  -1 

E i  *  3  .191592/  5J55979 

RAD  *  5 7. 2957798 13 CB 23 

1  WRITE  (  UR  IT.  600  ) 

WRITE  ( I w R  I  T , 2 ) 

?  FORMAT  (UHOPROGR  AM  ij  t  L .  i  5  »  70  X  ,  3  2  H  I-CHUNG  C  HANG#  COUR  AN  T  INSTITUTE/ 

i  5  6  tiC  S  i  L  J  f  I  ■  N  !  f  in  j  i  !  A ;  Y  TRANSONIC  POTENTIAL  FLOW  EwL'ATIDN  ) 

R  L  A ,)  (  I  E  t  A  D  »  5  j C  )  (  T  I  u  t  (  I  )  .  I  *  1,  20  ) 

*  -  I  r  I  (  U  i-  I  T  >  j(,  J  ;  7  I  T  Lt  (  I  )  ,  I  =  1»  20  ) 


]  46 


PEAU  (IPEAD.nOC) 

kEAD  (IREAD.51C)  )  SYrt.  FNU.FML*  F  NX  ,  F  N  Y  ,  FH  A  L  F  ,  F  R  S  T  AD  ,  F  S  T  AD  I 
I  S  Yrt  =  F  SYM 

I  k  S  T  AD  *  f  p  s  t  a  d 
I  S  T  A  L I =  FSTADI 
N  U  *  F  N  U 

NL  =  F  NL 

IF  (Mj.LT. 1)  GO  TO  302 
N  x  0  =  F  N  x 

NYO  *  FNY 

NX  -  N  X  0 

NY  *  NYO 

IF ( NX .NE ,4*NY )  Gu  TJ  j02 
MHALF  *  FHALF 

nhalf  =  0 

READ  (IREAD.5CC) 

Rt  AD  ( IRE  AD, 510)  FIT.CJV.CHECPT 
1 C H E  C  K  =  CHE  CP  T 
rEAD<  IREAD.5GC) 

RtAD(IREAD,5lO)  COOPS. CGuF  T  >  RCBDY 
luALF*  RCRDY 

1F(LHALF.L6.0.0P.LHALF.GT.3)  LH  A  L  F  =  1 
P  E  A  0 ( IPEAD.5GG) 

REAl  (  Ik E AD, 510)  F10»P2G,P3c»P101»P102,P1j3 
hi AD( IPEAC.5GC) 

PtA0(IPEAD.5IC)FPr'JRA>AMPLA,FPFCKF!,ANPLM,FREGRC»AMPLC.PEPIJC»DEGRE 
IF  (PERIOD. GT. 2.  )  DEGPL  4  5  . 

IF ( PER  IOC .LT. 3 )  GO  Tu  3 
0  EGP  E  *  45. 

I F ( PE  RIUD. LT . 4 )  GO  TC  3 
0 E  G k  E  =  90  . 

3  I  GRAF*  36  0.  /  DEC-  PE 

IF ( IGRAF .GT. 12)  IGRAf  *  12 
IPSURE*  PERIL D*loRAF 
FkEUP*  ICO. 

IF(FhFQRA.LE.O.)  GU  TO  4 
FhEOR*  AklNl  (  FRF  OKA,  FRtOP  ) 

4  IF(FREORM.LE.C.)  GO  TO  5 
FREOP*  AMINK  FRECPh#  FPEOP  ) 

5  IF  (FREORC  .LF .0.  )  GO  TU  6 
FREGP*  AMINlt FPEwRC. FkEOP) 

6  IFlFRtQP.LE.O.)  GO  TL  3G2 

MI  TO  =  FIT 

P  E AD  ( I Pf AD,  50C ) 

READ  (IPEAD.510)  A  L  1 »  FM1.CT1.TSR 

FMACH  =  F  Ml 

FRACH2*  FNACH*  FM ACM 

CLTA*  CT1 

CtTAS*  CETA/RAD 

P  t  AO  (IPEAD.50C) 

h  E  A  0  (  I  K  E  AD,  610)  T  P  A  i  L  ,  SL  UP  T  ,  X  R  ,  Y  R 

trail  *  r  k  a i l / R  a  c 

r,  *  NL  ♦NO  -l 

h  l  A : ,  (  I  R  F  A  D  »  5  ’.) 1 ''  > 
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00  7 

I  =  M  L  >  M 

7 

F  E  A  U 

(  I  kt  AT#  5  1C  )  X  (  1  )  ,  Y  (  I  ) 

L 

=  ML  +1 

IF  (ISYM.GT.O)  GO  TJ  4 

k L  AD 

<  IPE  AD>  500  ) 

['  J  •) 

1=  i  #  E.  L 

AD 

(  IkE AD# 5 1 C  )  V  A  L  »  0  UM 

J 

=  L  -1 

x  (  J  ) 

=  VAL 

b 

Y  l  J  ) 

=  TUM 

CL.  Tu 

11 

4 

J 

=  L 

Ob  1C 

Z 

—i 

II 

►  - < 

J 

=  J,  "I 

x  (  J  ) 

=  X  <  1  ) 

10 

Y(J) 

=  -Y  (  I  ) 

11 

CHORD 

=  X  (  1  )  -X  (  l)L  ) 

XM 

=  X(NL)  +.25*CHuRD 

AL 

=  AL  1 

12 

ALPHA 

*=  AL/KAD 

A  L  S  = 

ALPHA 

Ki  YM 

=  1  SYM 

IF  ( ALPHA. ME. 0. )  KEYM  =  0 

1  3 

CALL 

COORD(NL#M 

IF(lXl  +  U2.Nt.NX  +  4)  GO  TO  302 

I  r  ( I RSTAD.GT .0)  GC  TO  37 

CALL 

E  S  T  I M 

o  o  r  c 

38 

3  7 

CALL 

3  E  S  T 1 M 

3  o 

0  T  I  M  = 

0  . 

h  I  T 

=  Ml  TO 

A  L  T  =  U 

• 

A  L  T  T  = 

0. 

FiMACE.S*  FMACH 
F  M  A  C  H  T  =  0  . 

CE  TA  T=  0. 

CE  TAT  r«  C. 

14  WRITE  (  IWP  IT»  oOO  ) 

w>«  i  re  ( i  wp  i  t»  ii?) 

K  X  =  \  X  ♦  1 

jrj  1  6  1=  3  #  K  X 

15  XHTL  (IwRIT.tlC)  AO(I)*SO(I)>Si(I)»S2(I)»Al(I),A2(i; 
WRITE.  (IftRIT»6JC) 

wf  I  T  L  (  I  *  k  1  T  t  1 1 1  ) 

MY-  NY+2 

DIj  1-3  J=  3  »  M  Y 

16  »  k  I  r ;  (  I  w  V  I  T  »  6 1 C  )  60U),‘jl(J)>B2U)>B3<J) 

IF  (  IMSTAO.GT.O)  GO  TO  5  0 

IF (NHALF .tO.MHALF )  M  1  F  =  MIT+1.5 
H  I  T  =  u 
J  1 1  3 


K  Fi  A  L  1  r  L  H  A  L  F  *2  **  NHALF 
J  3  =  3  +  NY-KMALF 

J?*  J  3  -1 


,  A3  (  I  ) 
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10*  2  +  KhALF 

II  =  10  +1 

13=  2  ♦  NX  -KHALF 

12*  13  -1 

I N  X  =  13  -  10 

I  NY*  J  3  -  J1 

wk I TE  <lWRIT,oOC) 

wPITE  ( I WR I T  > 124) 

WRITE(IWRIT>640)  I N  X  >  I N  Y 
wRITE (IWRIT,120) 

WRITEt I«PIT»tI0)  FMACH,AL 
WRITE ( IWRIT»132  )  DT 
CALL  SFCUNO(T) 

WRITE( I  WR I T  >  6  bC  )  T 
wRITE(IwRIT,126) 

20  NIT  =  MT  +1 

CALL  USTAD1 

WRITE(IWRIT,6SD)  NIT»RG»IG>JC*J,S 
IF  (N IT .GF .NIT  >  GC  TG  21 
Ik (RC.GT.CJV)  GC  TG  20 

21  CALL  SECuNOU  ) 

WRITE  (IwRII.bNC)  T 

IF (  NHALF ,GE . NHALF  )  C J  T  I  22 
N  H  A  L  F'  =  N  H  <»  l  F  ♦  1 

M IT* MIT/? 

N  X  =  N  X  +  N  X 
NY*  NY  4-  NY 

call  coqpu<nl»m) 

IF ( IX1  +  I X2.NF  .NX  +  4)  GG  TG  302 
CALL  PEFIN 
Gu  r 3  it 

C  USING  THE  STEADY  MGDfc  TG  GENERATE  HE  INITIAL  DATA 

50  WRITE  ( IWRlT»bOG> 

WRITE  (IwRlT,  124) 

WRITE  (  IWR  IT>  64  0 )  NX  »  NY 
WRITE  { I W  R I T  » 1 2 1 ) 

wRITE  (IWRIT>blC)  ENACn, Al 
CALL  SECJND(T) 

WRITE  <IWRIT,6bU)  T 
WRITE! IWRITM29) 

N I  T  =  0 
AL  T  «U . 

PI  =  2. Ml.  M2. /P10  -1.  )*.S**NHALF  ) 

IF  (  P  101.  EG.  U.  )  GU  T  (j  SI 
Pl=  P10 

I F (  NHALF.EQ.l)  Pi*  P10  ♦  P101 
I F (  NHALE  .EG. 2 . )  PI*  P10  +  P1G2 
IF(NHALF.EC.3)  Pl=  P10  4  P 1 03 

51  P  2  *  PP.0 

P  i  =  1  . 

JI=  3 

52  J  3  =  N  Y  ♦  2 
10*  3 
13-  N  X  4 1 
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53  32*  J  3- 1 
11=  10  ♦  1 
12=  13-1 

STEADY  ITERATION  USING  ThE  STEADY  MODE 

54  NI  T  *  NIT  +1 

CALL  STEADY 

WR ITE ( IWP1 T,67C)  fsIT,KG»IG,JG,RP,Ik»JR»TAU»Pl»P2#P3»NS 
IF  (NIT.  GE.  MID  G  J  TG  55 
IHkk.GT.CJi/>  GC  TO  5  4 
5  5  CALL  SECOND  l  T  ) 

-KITE  ( I-k IT, 660 )  T 

I F  (  NHALF.LT. MHALF)  GJ  TJ  57 

CALL  SVELO 

CALL  FCkCE 

WRITE  (IUkIT,60C) 

♦  RITE  ( I WR IT, 182  ) 

WRITE  l  IWRIT»610)  AL,FMACH,CETA,CL,CD,CM 
WRITE  ( I W  R  IT,  15  4  ) 

DO  5 1  I  =  I  A  1,1X2 

55  „  R  I  T  t  ( I  -  R  I  T  »  6  1 C  )  XP(I),YP<I >,SV(I),SM<  I>»CP(I) 

WRITE  ( IwP IT, 600 ) 

CALL  CPLGT 
WRITE  (IWKlT.fcOC) 

Call  SChart 
I  ROUTE*  I 
CALL  PSU'PE 
I  p  L  0  T  =  0 

I F  <  If  TAOI.GT.O)  GC  TL  303 
uu  T  G  5  4 

57  NHALF*  NHALF  ♦  1 

u  X  =  N  X  ♦NX 
N  Y  =  Nr+  ft  Y 

CALL  CCOWD(NL.N) 

Ie ( l>l>lX2.NL.NX+4)  Go  TO  302 
.AlL  S  P  E  F  I  ft 
MIT  =  MT/2 
GC  TG  14 

SIEALY  ITERATION  USING  UNSTEADY  MODE 
5-  N I r  =  0 
A  L  T  *  C  , 

ALTT=  0. 

E  N  A C  H  S  =  FMACH 
f  M  A  C  H  T  =  0. 

CL  T  AT  =  C. 

CL  T  A  T  T  x  c. 

CALL  FSTIM 
MIT-  M I  T  0  /  2 
-RITE  (  I  WRIT, 600) 

•RITE (I«R1T»134) 

W» I T  E  ( I WR  I  T, 124 ) 
k  H  AL  F  =LM  ALF  *2  **R  HAL  F 
J  3  =  3  ♦  NY-KHALF 
Jl  =  J  3  -1 
1 0  *  2  +  KhALF 
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II  *  10  +1 

13*  2  *  NX  -nHALF 

12*  13  -l 
I N  X*  13  -  10 
INY*  J  3  -  J1 

WRITE! I WRIT# 640)  I  NX,  IN Y 
wRITE (IWRIT, 126) 

WRITE ( IWRIT, 610  )  FM  AC  H  , A L 
wRITF (IWRIT, 132)  DT 
CALL  SECOND ( T  ) 

WRITE ( IWRIT,obO)  T 
wRITE  (I  WRIT, 128) 

59  NIT  «  NIT  +1 

CALL  US  T  AO  I 

wk I TE ( I WRI T,6  50  )  N  I  T , R 0 , I G  ,  JG , N S 
1FINIT.LT. 3)  GC  TO  59 
I F (  NIT. GE. MIT)  GO  TC  bO 
IF (KR .GT.COV)  GO  TG  59 

60  CALL  SECGNOIT  ) 
wklTE  (  IwRIT,  5'oC)  T 

C  UNSTEADY  CALCULATION  TIME  MARChlNG 

2  2  N  1 T  *  0 

C  INITIAL  DATA 

NITS*  1 
JSTER*  0 
CALL  VE LC 
CALL  FORCE 
WRITE  (  I W  k I T , 6  C  G ) 

WRITE  (  IwRIT,  182) 

wRITt ( IWRlT»olG)  Al,FMACH,CETA,CL,CD,CM 
WRITE  ( I w  P I T ,  1  b A ) 

DO  23  I*  1*1, I  X 2 

23  wRITF  (IWRIT, SIC)  x P  (  I ) , Y P ( I ) , S V  ( I  >  ,  SM ( I ) , CP (  I ) 

WRITE  (IwRIT, 600) 

CALL  CPLOT 
WRITE  (IwRIT, 6  OC ) 

CALL  CHART 
IROUTE*  1 
CALL  PSURt 
IPLOT*  0 

IF (ISYM.GT.O.AM .ALS.F).G..AND.AMRLA.EC.0..AND.AMPLC.EG.0.)  GCTC38 
IROUTE*  IRGUTT  +  1 
CALL  LORD 

3  5  I  ROUTE*  IROUTE*  1 

CALL  SJN'IC 

CALL  SFtUND(T) 

wwITE  (IwRIT, 660)  T 

IF ( I s  T AOI .GT . u  )  GO  TO  303 

WRITE (6,600) 

IST5P*  PER  100*2. *PI/ (FREGR^OT ) 
wk I TE ( IwRl T, 1 36  )  ISTEP 
R*S  TE  P  *  I  STEP/ IPSL'RE 
IJKLNN*  MINO(  800,  ISTEP) 

K  F  )  P  C  *  I JKLMN/ IPSURt 


JIHECK*  1  S  TE  P  *  . 2  b 

:r  ( mclm ms  t  ep,  kfufc  > .  Eu .  a >  go  in  2b 

tv  E  1 J  P  C  *  K  F  L  P  C  - 1 
GU  TC  24 

C  h  T  p  P=  ISTEP/(KFuKC*IPbUPE) 
iSTtF*  ISTE?  +  b 
kSTEP=  1. 

rvKjTFFs  F  L  1 A  f  (  [  S  T  c  P  )  *  .  b 
CALL  USTAD1 

IF ( PER  10 j. GE . 2  .  )  GO  TC,  33 
IF(NCD(KSTLP»MSTLP).EJ.C)  GG  Ti.  2  7 
Gu  Tf.  30 

IF (KSTEP.LT  .KKS1 EP)  Gu  TG  30 
bO  TU  34 

I F ( Ik  CUTE . LT. 2  b )  GO  TO  2o 
CALL  ROUTE (61GUTPUT,2LLP> 

IkQUTE*  0 

CALL  PLOT  (  0  .  »  0  .  ,  9  9  / ) 

IPLUT=  -1 

I r  0 JTE  =  IPQjTF  +1 

CALL  VELu 

JS T  E  F 1  JSTLP  ♦  1 

CALL  FQkCE 

WRITE  (  I  WFt  I  T,  6C0  ) 

*PITc(IWPIT>13fc)  IT  IM,<ST£P 
-RITE  (UP  IT,  162) 

WRITE  ( I wR I T,b  10 )  AL»FMACH,CET  A,  CL, Cl),  CP 
*P  ITE  (  UP  IT,  164  ) 

Ob  29  1=  I  X  1,  I  X  2 

WRITE  (  UP  IT,  ft  10  )  XP(I),YP(I),SV(I),SM(I),CP(I) 

CALL  P  SURE 
1  P  L  U  T  *  0 

IE(ISYM.GT.Q.AND.ALS.tQ.C..AND.AMPLA.EC.O..AND.AMPLC.EQ.O.)  GDTQ36 

I R  (JUT  E  *  IRJUTE  +  1 

CALL  LOPO 

IRJUTE*  I  P  JU  T  E ♦  1 

CALL  SONIC 

bC  TO  32 

I  F  (  MC.O  (  KSTEP,  NSTE  P)  ,E  U.  0)  Gu  TO  31 

GJ  TO  32 

CALL  VELU 

JS  TEP* J  STE  P  +  1 

CALL  FuPCt 

X  S  TE  P«KSTt  P  +1 

IF ( MCD( KS TbP, JCHECK ) . Eu.G )  GO  TO  41 
IF  (  K  STF  P  .  GE  .  L  STE  P  )  GC,  TO  301 
C  G  T  E,  2  b 

IF  (  IC  HECK  .  GT  .  0  )  CALL  C  ti  EK  P  T  X  (  V  A  P  ) 

GO  TO  39 
CALL  TRACE 
G  i  =  3 

khALF*  3*  2** "HALF 
J  j-  J  +  \r  — ist'ALF 
10*  2  +  KHALF 


XP(I),YP(I)>SV(I)»SM(I)»CP(I) 
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13*  2  ♦  NX  -KHALF 
CALL  GRID 

303  CALL  PLOT !  0. >  0. ,999 ) 

302  STOP 

112  FURMAT!41H0MAPPED  COORDINATES  AND  X  STRETCH  FACTORS/ 


1 

1  5  HO 

X 

F~* 

VJ~ 

T 

Y 

,  1  5  H 

YP 

9 

2 

15H 

YPP  ,13H 

A 1 

,  1  5h 

A2 

9 

3 

15H 

A3  ) 

116 

FORMAT ( lbHOY 

STRETCH  FACTORS/ 

1 

1  5  HO 

Y  ,  158 

B1 

,  15  H 

b  2 

9 

2 

1  3  H 

B  3  ) 

124  FORMAT! 15 HO  HOR  D I V  I S IONS , 15H  VER  DIVISIONS) 
126  FORMAT  (  15  HO  MACH  NO  ,158  ANG  OF  ATTACK) 


128  F0RMAT(10H0ITERATItJN,l3H  CORRECTION  ,  5H  I  >  5H  J  » 

l  5 h  ,iohsunic  pts  ) 

129  FORMAT ( 10H0ITERA1 1JN» 15H  CORRECTION  , 5H  I  , 3H  J  , 

1  1 3  H  RESIDUAL  OH  1  ,5h  J  , 

2  10H  Cl FCUL ATN, 1CH  REL  FCT  1,10H  REL  F C T  2>10H  REL  FCT  3, 

3  10H  SONIC  PTS) 

132  FORMAT! 1H0,*TIKT  STEP  =  *,F15.10) 

134  FORMAT (1HC,*0NSTE ADY  ITERATION*) 

136  FORMA T( 1H0, +  UNST E ADY  ^TEPS  =  *,  5X,I10) 

138  FORMAT ( 1 H  , *T I M E = * , 5 X , F 1 0 . 5, 5 X , * S TF P *  * > 5 X ,  1 1  0,  /  >  /  ) 

182  FORMAT ( 1  5  H  0  ANG  OF  ATTACK, 158  FLIGHT  SPEED  >15H  FLIGHT  ANGLE  , 
1  1 3  H  CL  >150  CL  ,15H  CM  ) 

184  ruKMAT!  3  6P1OC  J  DR  l' 1  N  A  U  S  OF  INTERPOLATED  AIRFOIL, 

1  26H  AND  PRESSURE  L  I  S T P  1BUT  ION / 

2  13H  X  ,158  V  , 1 3  H  M/M  0  , 

3  1 3  h  EACH  NO  ,15)-  CP  ) 

500  FUR MAT! IX) 

510  FORMAT! oFlO.  7  ) 

530  F0RMAT«?0A4) 

600  FURMAT11H1) 

610  FURMAT(8Fl3.4) 

620  FORMAT ( 8E  15.  3  ) 

8  3  0  FORMAT! 1HC,?C A4  ) 

640  FURMAT ( 18,7115  ) 

650  FORM  AT (  1 1 0, El  5. 5, 2  I  5, I  ID  ) 

660  FORMAT!  15H0C0MPL.  T  ING  T  I  ME  ,  F  1 0  .  3  ,  1  OH  SECONDS) 
o7G  FuP MAT ( I1C, 115.5,215,815. 5, 215, 4F 10.3,110) 

END 


subroutine  cocjri(l,n) 

cETS  up  modified  parapjlic  ccurdinate  system 

COMMON /A/  GM!  1  32,  36),  V,!  1  32, 3t  )  ,  GN!  1  32,  36),  SO!  132  )  ,  SI!  132  )  ,  S2  !  132  ) 

1  ,A0( 132), Al!132),A2(132),A3(132),B0(36),Bl<36), 62136) 

2  ,33! 36), NX, NY,  I X 1 , I  X 2 , K S YM , F M AC H, A l PH A , C A , S A, F M AC H2 

3  ,AL,uTIi/.  ,CB,SB,NS,PG,IG,JG 

CO MM ON/C/  XP(2 60 ),YP!2oO), 01(260), D21260), 03(260) 

Common/ d/  sllpt, trail, scal 

CUMMUN/F/  XR,YP,KS,XS(500),YS(500) 


Cul.KTN/H/ 

Co  1MUN/  I  / 
CuMMCN/3/ 

PI 

:x=4./nx 

[>  Y 

DXY=CX*DY 
l yy=dy*dy 

DXX=DX*DX 
t\X  =  NX+1 
,XX*  \X  +  2 
N  Y 
MY 

S  =  CU3PS 
1=  CuilRT 

X  T  £  =  1  . 

SC  AL 
DJ  12  I  =  1  >  N 
XO 
YG 
R 

ANGL 

IP  (  I  .IT. 

IF  (  I  .  GT  . 
k 

ANGL 
XP  (  I) 

YP  (  I  ) 

DC  22  1= 


0X,DY,DT,0XX,DYY,DTT>OXY>DXT#DYT»TSR 

x (2  fed , Y(?6C) 

CCoRS»CCCRT 
=  3.1415<i?6:>3;){3??9 

=  1  .  /NY 


. 5GG01*XTE*+2/ ( X(N)  -XR  ) 


XO  =  S  C  A  L  * ( X (  I )  -XR) 

YO  =  GCAL*  <  Y(I)  -YP ! 

P  =  bQKTtXCUC  +YO*YC) 

ANGL  =  CMPLA(XOjYO) 

IP  (  I  .LT.L. AND.ANGL.LT.  . P I )  ANGL  «  ANGL  «-PI  *PI 
IF  (  I  .GT .L . AND. ANGL.GI. 1. 5*PI  )  ANGL  *  ANGL  -PI  -PI 
P  *  SORT  (  R  ♦ R ) 

ANGL  =  .  5*  ANG  L 

XP  (  I  )  *  P+CCS  <  ANGU 

Y P  (  I  )  *  R*SlN(ANGl) 

DC  22  1=  3  »  K  X 

X  X  =  ( 1-2 ) *  UX  -2. 

b  =  1  . 

If  (  A8S ( XX ) .GT .XTE )  GO  TO  23 
Sx  =  SIN(PI*XX/XTE> 

CX  =  CCS(PI*XX/XTt ) 

XC  *  xx  ♦S*xTt*SX/(PI*(l.  ♦  S  >  ) 

XI  -  1  * /  <  1 .  +S*ll.  +  CX)  ) 

x  2  *  S*PI*SX*x 1 /XTE 

Xi  *  (1.  ♦Sl’i'Xl 

G  Z  TC  2  4 

IP  ( XX.LT.O. )  9  =  -1. 

A  =  1.  -((XX  -B*XTt)/(2.  -XTE )  )  **2 

XO  =  b  *  X  T  E  +(XX  -B*  X  T  E ) / ( A* ( 1 .  +S)> 

X 1  =  ( I .  +S ) *A*A / ( 2.  -A  ) 

x  2  *  -2  •  *  (  X  X  -d*xn  )*(<!.  -  A  )  /  (  A*  (  2  •  -  A  )  *  (  2  • 

IP  (XO.LT • X  P (  1) )  1X1=  I 

IP  ( XO.LE.XPt  N) )  1X2  «  I 
A  0  (  I  )  *  X  0 

Aim  =  .  b  *  x  i  /  d  x 

A2<  I)  1  Xl*Xl 

A  3  (  I  )  =  .‘j*X2/UX 
; x i  =  i <  l  +i 

DU  3  2  J=  3  »  M Y 
YY  *  ( J—  3 )  *UY 


-XTE  )  *  *  2  ) 


AG  (  I  ) 
Aid) 
A2  (  I  ) 
A3  (  I  )  * 
;  x  i 
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Y 1  *  B  *  6 / ( ( 2  .  -8)*T) 

b o ( j )  *  c*yy/b 

B 1  (  J  )  =  .  5*Y 1 / D Y 

B2(J)=Y1*Y1 

32  6  3 ( J  )~-YY* (4.-3)/(B*(2.-ri)*DY ) 

ANG  =  ATAN(SLDPT) 

ANG1  =  CMPLAUX(l)  -XR)KY(l)  -YR)> 

IF  (ANG1.GT.PI)  ANG 1  =  ANGl  -Pi  -PI 
ANG  2  =  C  M  P  L  A  (  (  X  (  N  )  -XP)KY(N)  -YR)) 

IF  (ANG2.GT.PI)  ANG 2  =  ANG2  -PI  -PI 
ANGl  =  ANG  - , 5  *  ANG 1  +.5+TRAIL 

ANG2  =  ANG  - .  5 *  A?tG2  -.  5*T  R A  1  L 

T 1  -  T  AN ( ANG 1  ) 

T  2  =  TAN(ANG2) 

CALL  SPLIF  (l>N>XP>YP»Gl»D2»D3>l>TI»i»T2*0>0.»IND) 
CALL  INTPL  ( 1X1, 1X2, AO, SG. i,N, XP> YP» Dl»u2»G3»0) 

XI  *  X ( 1 )  -.75*  <  X<  1  )  -  X  (  L  )  ) 

S  0 ( 2 ) =  0. 

S  0 ( M  X ) =  0. 

M  =1X1-1 

A  *  S  LNPT* ( X (  1)  -XI) 

C  *  1  ./  (  X  ( 1  )  -XI  ) 

OU  42  1=  3»M 

XX  *  . 5  *  AO ( I ) *  *  2 / SC  AL  ♦  X  R 

XO  =  S  C  A  L  *  (XX  -XR) 

YO  =  SCALMY(i)  +  A* ALGG  (  C*  (  XX  -XI))  -YR) 

R  *  SwPT(XO*XO  +  Y  0*  Y  0  ) 

ANGL  =  CNPLA(XO,YO) 

IF  ( ANGL .LT..5*PI)  ANGL  =  ANGL  +  PI  +  ?I 
R  *  SOFT ( R  +  R ) 

ANGL  =  . 5*ANGL 

42  S  0  < I )  =  R*SIN(ANGL) 

rt  =1X2+1 

A  =  5LCPT*(X(N)  -XI) 

C  =  1 ,  /  ( X ( N  )  -XI) 

DL  52  I«  M  >  K  X 

XX  =  . 5*A0 ( I ) **2/SC Al  +  X  R 

XC  =  S  C  A  L  * (XX  -XR) 

YC  *  S  C  A  L  *  (  Y  (  N  )  +A*ALUG(C*(XX  -XI))  -YR) 

R  =  SSRTUO+XO  +YO+YO) 

ANGL  «  CMPLA(XOjYO) 

IF  ( ANGL  .GT .1  ,J*P I  )  ANGL  «  ANGL  -PI  -PI 
R  =  S  OFT  (  R  +  R ) 

ANGL  =  .  5  *  A  N  G  L 

52  5 C (  I  )  =  k*SIN(ANGL) 

GCAL  =  l./SCAL 

DU  fa?  I  *  3»  K  X 

US  I  =  5  0 (  I+I)  -S  0  <  1-1  ) 

0  S 1 1  * ( S  0 (  1  +  1)-2.*S0( I  )  +  3  0  (  I  —  1 ) )  /  D  X  X  +  A 3 ( I ) * DS  I 
SKI)  «  A1  (  I  )  *l)S  1 

62  S2 ( I )*A2 (I  )*DS  1 1 
02  72  I«  IX1KX2 

XP 1 1 )  =  .5*SCAL*< A0<  I  )+*2  -  SO ( I  )  **2  >  +XR 

72  YP (  I  )  =  SCAL*AO<  I )*S0( I  )  +YR 
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K  i  T  U  F  N 
END 


iUBkLUTlNF  3PLlF(M,N,b,F,FP,FPP,FPPP,KM,VK,KN,VN»MQDE,FQM,IN0) 
C  SPLINE  FIT  -  JAMESON 

C  INTEGRAL  PLACED  IN  FPPP  IF  MGDF  Gk  t  A  I  E  F  ThAN  0 

C  1 NO  S  F  T  TL  ZEPO  IF  DATA  iLLtCAL 

DIMES bIGN  S{1),F(1),FP(1),FPP(1),FPPP(1) 


I  NO 

= 

G 

K 

= 

IA5SIN  -.1) 

IF 

(  K 

-1  ) 

8i  ,  ei,  l 

I 

i\ 

= 

(  N  — M  )  /  K 

I 

= 

y 

J 

3 

M  +  K 

C'b 

= 

S ( J )  -S ( I ) 

0 

S 

DS 

IF 

(DS)  11 

9 

81, 11 

11 

OF 

- 

( F ( J )  -F ( I ) ) /OS 

IF 

(  KM 

-2  ) 

12,13,14 

12 

U 

- 

•  5 

V 

r 

3 . * ( 0  F  -VM)/0S 

Gu 

TO 

25 

13 

U 

3 

0. 

V 

= 

VM 

GG 

TG 

25 

1  A 

u 

= 

-1  . 

V 

= 

-OS*VM 

GG 

TL 

25 

21 

I 

3 

J 

J 

3 

J  *< 

05 

= 

S  (  J  )  -S  (  1 ) 

I  F 

(  L  +  DS  ) 

81 , 91/ 2  3 

23 

D( 

= 

(  F ( J )  -F(I))/US 

0 

X 

l./(OS  ♦OS  +0) 

U 

= 

P*OS 

V 

= 

P *(t.*DF  -V) 

25 

FP 

(  I  ) 

X 

u 

FPP< 1 ) 

= 

V 

0 

= 

(2.  -u ) *  0  b 

\ , 

= 

L.*DF  ♦DS*V 

IF 

l  J 

-N  ) 

21,^1,21 

31 

IF 

(  K  N 

-2  ) 

32,33,  34 

32 

V 

X 

( 6. ♦ VN  -V  )  / U 

O  LJ 

T  u 

35 

33 

V 

= 

V  N 

G  G 

TG 

35 

34 

V 

X 

(  Ob*  VN  ♦ F  P  P  (  I  )  )  ✓ ( 1 

3  5 

3 

2 

V 

j 

X 

os 

41 

L'b 

X 

S  (  J  )  -S (  I  ) 

U 

3 

FPP(I)  - F  P ( I ) ♦ V 

♦  F  P  <  I)  ) 
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FPPP(I)  *  (V  -OWOS 

PPP  (I)  *  U 

F  0  <  I )  *  (F(J)  —  F ( 1 ) ) / CS  - D  S* ( V  ♦ u  ♦U)/0. 

V  *  u 

J  *  1 

1  *  I  -K 

IF  i  J  -M  )  41  ,  61,  <.1 
511  *  r-i  -  *, 

F  i-*  P  P  (  N  )  *  FPPF(I) 

FPP(N)  =  b 

F  P  (  N  )  *  OF  +DMFPPII)  ♦  6  +BI/6. 

I N  D  *  1 

IF  (MODE)  31,81,61 
bl  FPPP(J)  =  FOM 

\l  -  F  ?  F  (  J  ) 

71  1  *  J 

J  *  J  ♦  K 

OS  ~  S ( J  )  -S  l  I  ) 

U  =  F  P  p  <  J  ) 

FPPPTJ)  *  FPPP(I)  ♦.5*0S*«F(I)  ♦ F  (  J  )  -OS*US*(U  +VT/12.) 

V  *  u 

IF  (J  -N>  71, FI, 71 

81  RtTGFN 
F  NO 


PACTION  C  MPLA(  X,  Y) 

ANGLE  OF  COMPLEX  NUMBER  X  *I*Y  IN  RANGE  J.  TU  2,*PI 
PI  *  3.i4l592b:>35a979 

IF  ( ABS  (  Y  )  -ABS  (  X  )  )  1,1,11 

1  SHIFT  »  PI 

If-  (  X  )  4,<  1,2 

2  SH I F  I  *  0 . 

IF  (  Y)  3,4,4 

3  SHIFT  =  2 • *  P  I 

4  CMPIA  =  SHIFT  ♦  A  T  AN ( Y / X  ) 

Gc  TO  31 

11  SHIFT  =  . 5*  P  I 

IF  ( Y )  12,  12,  13 

12  SHIFT  «  1  .  5*  P  I 

13  CKPLA  *  SHIFT  -ATANU/Y) 

j[  1 0  31 

21  CMPIA  =  0. 

31  RETURN 
FND 


SUBROUTINE  INTPHKI»NI,SI»b'I,K,N,S,F,FP,FPP,FPPP,MODE) 

C  IMF  h  POL  AT  IJN  USING  TAYLOk  StFIbS  -  JAMESCN 

C  AUOS  CORRLCTIUN  FUR  PIECEWISE  IUNSTANT  FOURTH  DEKIVIAT  IV E 

C  IF  MODE  GREATER  THAN  G 

DIMENSION  SI(1  )»F  1  (1  )»S(  1  )  ,  F  <  1)*FP(1),FPP(1  )  , F  PPP  (  1  ) 


•SSS- 
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SUBROUTINE  S  E  S  T  I M 
C  STEADY  ROUTINE 

C  INITIAL  ESI  I M  A I E  OF  REDUCED  POTENTIAL 

COMMON/  A/  GM<132,3o)>GU32,36),GN(132,36)>SO(132),Slll32),S2ll32) 

1  ,A0(132),A1(132)>A2(132)»A3(132),BG(36).»B1(36),B2(36) 

2  >B3(36),NX,NY,IXl,IX2,t<SYM,EMACH,ALPHA,CA,SA,EMACH2 

3  »AL,UTIM,CB,.>o>NS.»RG>IG,JG 
CUMMON/M/  P  1  >  P  2 »  P  3 »  TAU 
ClMMON/WAKE/  NIT  ,  to  G  ( 132) 

IX*  NX  +  A 
I  Y  =  N  Y  +  A 
K  X 1  NX+1 

MY  *  N  Y  +  2 

Ce*  CJS(ALPHA) 

S  3*  S  IN ( ALPHA  ) 

C  A  =  FMACHACB 
S  A  *  FMACH*SB 
TA'J*  0. 

DO  12  I«  l.IX 
U  L  12  J--  1  ,  I  Y 
12  G(  I»  J  )  =  0  . 

DG  22  1*1X1, I  X? 

u u  =  c a*ac< i »  +s a*so ( i ) 

b i s  =  ei ( 3)* ;  i.  ♦ s l ( i ) **2) 

22  G ( I , 2  )  =  G( I, A)-(CA*Sj(  1  )  - S  A*  AO (  I  )  ♦ UO* S 1 ( I )  )  /  B  I  S 

DC  23  I*  1X2, KX 

M=  NX  +  A  -I 

23  «G(I)=  G(I*3)-G(M,3) 

R  t  T  u  k  N 

END 


subroutine  s  r  t  f  i  n 

C  STEADY  ROUTINE 

C  HALVES  MESH  SIZE 

COMMON/ A/  GM(i32,3o),o(lJ2*jb),GN(132,3b),SO{132)*Sl(132),S2(132) 

1  ,A0(  132), All  132), A2(i32),A3(132),’3  0(35), Bll3b),b2l3b) 

2  »  B3( 36 )  >  NX, NY, I  XI ,1 X  2  f  K  SYM, EMACH, ALPHA, CA»SA, FMACH2 

3  , AL , UT IM,CB, Sb,US,RG, 1G  ,  JG 
CUMMuN/WAKE/  NIT,  W  0(132) 

KX*  NX+1 
h  X  =  f.  X  +  2 

K  Y  =  N  Y  +  1 

MY*  N  T  +  2 

1Y*  NY +3 
LX*  NX/2  +  2 
L  Y  *  N Y / 2  +3 
DU  2  2  K=  2,  LX 
I*  LX+2-K 
II*  ( I -2 ) *  2  +2 
D J  22  KK=  3  ,  L  Y 
J*  LY+3-KK 


•* 


159 


J  J  *  (  J-3  )*2  +3 

2  2  G  (  1 1  ,  J  J  )  =  G  (  I ,  J  ) 

Du  4  2  1=  2 , M X  , 2 

Uu  4  2  J  =  4,r'.Y  ,2 

42  o(I,J)  =  .  5*  (  G(  I  ,  J +1  )  +GII,J-1)) 

DC  3c  J  =  3  >  IY 

uu  3c  I*  3  ,  K  X  ,  2 

32  u(I»J>  '=  .b*(G(I+l,J)  ♦  G  (  I  -  1 ,  J  )  ) 

DL  3-  1=  1X2, KX 

r.-  N  X  +  4  -  I 

3  3  *  G  (  I  )  =  G  (  1  ,  3  )  -  G  ( .v:  ,  3  ) 

Du  6  2  1=1X1, 1X2 

G I =  G( 1+1,3 )  —  G ( 1-1, 3) 

0  0=  A  1 ( I  )  * G  1  +  C  A  *  A  0  (  I  )  ♦  b  A  *  S  0  <  I  ) 

k IS*  3 1 ( 3 ) *  (  1 .  +  S  1  (  I ) **2  ) 

62  u (  I , 2 ) =  G ( I , 4  )  -<CA*S0(i)  - S  A  *  AG  (  I  )  + U0+ S 1 (  I  )  )  /  9  I  S 

N  =1x1-1 

DU  t> 2  1=  3,N 
M=  N  X  +  4  -  I 

6  2  C ( M , 2 ) =  G ( I , 4  )  ♦  W  G ( M ) 

N  =  1X2  +1 

0 J  64  1=  N , K  X 
M=  N  X  +  4  - I 

64  G( M»2 ) =  G (  1,4 )  -WG (  1  ) 

RETURN 

END 


SUBROUTINE  SVfclL 

STEADY  ROUTINE 

CALCULATE S  •  SURFACE  VELOCITY 

CuMMCN/A /  GM(  l32»3b),G(132»3t>),GN(132,36),S0(132),Sl(132),S2(132) 

1  ,  A  0  ( 132), All 132),A2(132),A3(132),B0(36),B1(36),B2(36) 

2  , 63(36), NX, NY , IX 1 , 1X2, KSYM,FMACH, ALPHA, C  A,  S  A,  FMACH2 

3  ,AL,UTI.M,CB,S3,nS,RG,IG,JG 
LuMMON/B/  SV(132),Srt(132),CP(132) 

CCMM'-'N/  J  /  ?An,Pl,ALS,ALT,ALTT,AMPLA,FRE'3RA,FASAGA,FMACHS#FMACHT 

1  , AMRLM, FR  ECR  M, E AS AGM,C  ET AS,C  ET  AT,CET  ATT, AMPLC, FREQRC, FASAGC,C  ETA 

2  ,FRF JR,  I  PSUR E 

u'jMMGN  /K  /  I  C,  1 1,  12,  I  3,  J  1  ,  J2,  J  3 
A  A  0  *  1.  +  .2*  FMACH2 
Di;  12  1=1x1, 1x2 
Y=B0(3)+SG(  I) 

H  =  SJRT( A0(  I  )**2  >  S  C  (  I  )  *  *  2  ) 

G  I  =  G  (  I  +  1 , 3  )  -  G  (  1  -  1  ,  3  ) 
u J1  G (  I  , 4 ) - u (  1,2) 

l  =(A1!I)*  G I  -Si  ( I  )* B  1  (  3 ) *  GJ  ♦ C  A  *  AO (  I  )  +SA*Y)/H 

V  =  (  b 1 (  3 ) *  GJ  ♦SA*AG(I)  - C  A*  Y ) / M 

J.=  J*U+ V*V 

w  =  3  '•)  P  T  (00) 

Ik  l  L  .  L  I  .0.  )  -  =  -U 

S  V  (  I  )  =  - 
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AA*  A  AO  -.2*QG 
AA*  A6S ( A  A  ) 

A*  SO  RT  t  AA  ) 

SM  (  1  )  *  Q / A 

12  C  P (  I  ) =  ( A  A*  *  3 . 5  -1 . ) / (  .  7*F MACH2 ) 

RETURN 
END 


3  U3R0UT  I  NE  SCHART 
C  STEADY  ROUTINE 

C  GENERATES  MACH  NO  CHART 

CUMMON/A/  uM(13  2,3t>)>u<1  32,36  )»GN(132>36),S0tl32)>Sl(132),S2ll32) 

1  ,A0(132),Al(lj2),A2(132),A3(132),3U(36UBl<3b),62<36) 

2  ,63(3b),NX,NY,IXl,IX2»KSYM,EMACH,ALPHA,CA,SA,FMACH2 

3  ,Al,UTIM,CB,S3,NS>RG,IG,JG 

COMMON /J  /  RAD,PI,ALj,ALT,ALrUAMPLA,FREGRA,FASAGA,FMACH$>FMACHT 

1  , AKPIM,FkEGPM,FASAGM,CETAS,CETAT,CETATT,AMPIC>FREGRC,FASAGC,CETA 

2  ,FREQR,  IPSURE 

C  CMMCN/K /  IC>  IU 11,  13, Jl, J2, J3 
DIMENSION  I  NO (ISO) 

A  A  0  =  1.  +  .2  *  FMACH2 
UR  I T  =6 

R  =  NY/32 

IF  (NY.GT.32*K)  r  *  r  ♦  ! 

WRITE  (  I  W  R  I  T  ,  2  ) 

2  FORMAT! 14HCMACH  NO  CHART) 

11  DO  12  1=  10,13 
J  1 J  1 

N  *  0 

14  N=  N+l 

Y  =  SO  (  I  )  +  B 0 ( J  ) 

HH*  AO ( I )«A0( I  )+Y*Y 

H  =  3  G  P  T (HH) 

GI  =  G  (  1  +  1  ,  J  )-G <  1-1, J ) 

GJ*G( I > J  +1  )-G ! I >  J-l ) 

IJ  =(A1(I)*  GI  -SI  (  I  )  *B1  (  J)  *  GJ  +CA*AO(I)  +SA*Y)/H 

V  =  ( B  1  (  J  )  *  GJ  +  S  A*  AO (  I  )  - C  A*  Y ) / H 
GQ=U*U+V*V 

AA=  AAO  - . ?*QQ 
AA=  ABS(AA) 
w  A  *  QG/AA 

IND( N)  =  100. *5CPT ( GA ) 

IF  (  u.  LT  .0.  )  IND  (  N  )  =  - 1  i-iO  (  N  ) 

J  1  J  +K 

IFIJ.LE.J2)  GO  TG  14 

12  WRITE  (  IWRIT,61C)  ( I  NO ( J ) ,  J *  1  ,  N ) 

RE  TURN 

610  FORMAT!  IX, 3214) 

END 
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SL&kCUTINE  STEAUY 
C  STEADY  ROUTINE 

C  S  I  c  A  C  Y  T  kA.NS  JNK  POTENTIAL  FLOW  EUUA  TICN  IN  SHEARED 

C  PARA30LIC  COORDINATES  SYSTEM  ST.LVED  BY  RUk  RELAXATION 

C  G  IS  THE  VELOCITY  POTENTIAL  lh  THE  AbSCLUTE  FRAME 

C  AND  I j  THE  RYJUCtO  POTENTIAL  IN  THE  UNIFORM  MOVING  FRAME 

CUMM'JN/A/  GM  (  1  jo  30  )  ,  o<  132»  36  ),  GN  (  132,  36),  SOU  32  )  ,  SI  (  132  )  ,  S  2  (  132) 

1  ,AG(13?)»Alll32),A2(132)»A3(132),80(36),Bl{36),B2(3o) 

2  »  3  3 (  3 1 ) > NX*  NY  *  I  XI > I  X  2  *  K  SYM>  E  M  A  C  H  »  ALPHA#  C  A  >  S  A  >  FMACH2 

3  t AL*UTIM>CB> 5o»NS>RG> I G  >  J  6 

(.  uMMON/H/  uX,DY,CT,DXx,DYY»DTT,LxY,DXT,DYT,POT 
CLMMON/K/  IQ,  Il» I2>  IS, Jl> J2, J3 
CCMHGN/M/  P1,P2,P3,TAU 
COMMON/ ST AO  I /  Rk»I»>JR»IRSTAU 
DIMENSION  C(132)»D(132) 

J  ft  =  J  3  +1 

Ift  =  13  +1 

11=  1 0-1 

110=  10  +2 

113=  13  -2 

u  U  =  x . /DXX 

E  L  =  l./OYY 

NS  =  0 

A  A  0  =  1.  +  .2  *  FNACH2 

R  R  =  0  • 

IP  =0 

oft  =  u 

*  G  =  0  . 

1  G  =  C 

JO  *  0 

K  L  =  0  . 

I  E  =  0  . 

JE  =0. 

01  =  2  .  /P  1 

02  =  i . / E  2 

C ( I  I  )  =  0. 
o <  1 1 ) =  o. 

J=  J  3 

21  Du  32  I  *  1 0  »  I  3 
F  *= 1  .  +S1 <  I  >**2 
Y=SO(  I )  +  B  0  l  J ) 

H  H  =  A  0 (  I  )  *  AO (  I  )+Y*Y 
11=  SOR  T  (  HH  ) 

Dh=  l./H 

oI=G< I  +  l, J  )  - G (  I  -  1 »  J  ) 
u  J  *  G ( I  »  J  +1  )  —  G ( I f J  —  1 ) 

U  =U1(I)*  G  I  -Si  (  I  )  *F  i  C  J  )  *  GJ  ♦  C  A*  AO  (  I )  +SA*Y)*Oh 

ih  V  =  (B1IJI*  GJ  +  S  A*  AO  (  I  )  -  C  A*  Y  )  *  DH 

AV  =  V  -U*S1(I) 

AU  =  U  ♦  V  *  S  1  (  I  ) 

S  *  I  . 

IE  ( l.  ,L  T  .0  .  )  S  =  -1. 

T  *  1. 

I F  (  AV.LT.O.  )  T  * 


-1 
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uu*o*u 

0  V  3  U*  V 

vv*v*v 

wu*UU+ VV 
A  A  3  A AO  - . 2  *Q  Q 
A  6  3  A  1  (  I  )  *  B  1  (  J  ) 

G 1 1 —  <  G( I  +  1»JJ-G(I»J)-G(  I,  J ) +G (  1  —  1  *  J  )  )  *  DO  +  A3(I>*GI 

GIJ  3G  (  I  +  1 ,  J  + 1  )  — G ( I- 1 #  J ♦ 1  )  -G(I  +  1*J-1>  ♦  G(I-lU-l) 

G  J  J  *  (G(I,J+1)  -6(1,  J)  -G  ( I  ,  J  )  +G(  I,  J-l)  )*EE  +  B  3  (  J  )  *  G  J 

k=  -  (  A  A  -U  J  ) *S2 (  I  )  *6  L  (  J  )  *  GJ 

1  *C A* ( VV-UU ) -2. *UV*SA 

2  ♦  CC*( U*AO( I ) +  V*Y )*DH 
IF130.GE.AA)  GO  TO  33 

A X  *  3  (  AA  -UU  )  *A2 (  I  ) 

AXY3-(AA*S1(I)+U*AV)*2.*A6 
A  Y  Y  3  ( AA*FX- AV  *  A V ) *62 ( J  ) 
k=AXX*GII+AXY*GIJ+AYY*G3J+R 
Ai3  -2.*AXX*L'0  -Cl  *  A  YY*E£ 

BI =  A  X  X  *  DU 
Cl*  A  X  X*  DD 
YI=-f 
GO  TO  35 


3  3  NS 

3  MS 

♦  1 

K 

3  3 

It' 

=  I 

-K 

I  KM 

3  IM 

-K 

L 3  I 

JK*  J-L 

JM-L 

AC  3  A  A / 00 

BXX=vV*A2(  I) 

6  X  Y  3  -2 • *  AB*V  * AO 
6  Y  Y*  AU*AO*82(J) 

G  N  N  =  E  X  X  *  G  I I+6XY*GIJ+6YY*GJ0 

IF!  IMM.LT .2. OF.  I M  M . o  T .  I  A  )  GO  TC  6b 

GIIM  3  (u ( 1, J  )  -G(  I.M,  J  )  -G(  1M,  J  )  ♦G(IMM,J))*DD  *A3  (  I )  *GI 

GO  TO  67 

66  GIIM*  G I  I 

67  GIJM3  G (  I  ,  J  )  - G ( I M , j  )  -G(I,JM)  ♦G(1H,JH) 

i F (  JMK.LT.2. Uk. JNM.GT. JA)  GO  TO  6A 

G  J  J  M  =  ( G ( I , J )  - G ( I , J  M )  — G ( I , J  M )  ♦G(I,JMM)  )*tt  *  B3(j)*GJ 

GO  TO  65 
6  A  G  J  J  M  3  GJJ 

6  5  A  X>'  3  l'U*  A2  (  I  ) 

AXY«8.*i*T*U*AV*AB 
AYY  =  AV*AV*B2( J  ) 

G5S«AXX*GIIM+AXY*GIJM+AYY*GJJM 
F  3  (AC  - 1 .  )  *G  5 i  +  A  0*  GNN  *R 

tO=  ( A3-1  .  )  * <  AXX *  DO  ♦  . 5*  A  X  Y  ) 

A i -  AC*( -G2*B YY*E E  -2.*HXX*DD) 

^  + ( Au- 1 .  )  *  2 . *  ( A  X  X  *  0  D  ♦  AYY*Et  ♦  A  X  Y  ) 

oi3  A0*6XX*DD-(  1  •  ♦  S  )  *  Bii 
C  i  3  AO*ttXX*DJ  -  (  1  .  -  S  )  *  a  6 
Y  I  3  -  F 
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3  3  It-  tAbS(^)  .LF.kk)  GG  1  w  3  7 
P  k  =  A  P  S  (  «  > 

i  k  =  I 

J  k  =  J 

37  A  =  1. /(  Al-RI*C ( 1-1  )  ) 

C  t  I ) =  C  i  +  A 

0(1)*  (Yi-ai*0(I-l))*A 

3  2  CONTINUE 

1=  13 
C  o  =  0  • 

L  3  4  3  M =  10,13 

CG  =  0(1)  -C ( 1) *CG 

Ii-  <AbS(CG).Lt.A35(kG))  O'J  TC:  43 

*G=AcS(CG) 

It*  1 
J  G  =  J 

43  G  (  I  ,  J  )  =  G  (  I  ,  J  )  +Lo 

4  2  1  =1-1 

J  =  J  -  1 

I F (  j.Gt.Jl)  Gu  1L  31 
T'TAU*  l>(  1*2, J)-Gl  1X1,3) 

I F (  KSYN.LE.J)  1  AU-  TAG*  P3* (TTAd-TAU) 

Ou  33  1= 1X1, 1X2 
G 1 =  G( I+i, 3  )-G ( I-  1, 3  ) 

Ub  =  Aid)*  G I  +  C  A  *  A  C  (  I  )  +SA*S0(I> 

r>  I  3  =  B 1  (  3  )  *  ( i. .  +  S  1  <  1  >  *  *  2  ) 

G ( 1 , 2 ) =  G ( 1 , 4  )  -(CA*30(I)-SA*AG( I  )  +  U0*Sl(I) ) / B  I  S 

3?  CONTINUE 

N  =1X1-1 

iJL  bZ  1=  10,  \ 

ii*  NX*  4  -I 

6  2  G  (  N  >  2  )  =  G  (  1 , 4  )  +  T  A  U 

>v  =1X2+1 

UU  1  *  k  1=  N,I3 
ii*  N  X  +  4  -I 

164  G  (  ii ,  2  )  =  G  (  I,  4  )-T  AU 

IF (  FNACH.LT. 1 . )  GO  TO  91 


UN  3  ?  J  = 

J  1  ,  J  4 

G  (  I  I  ,  J  )  = 

3.« ( G( 10, J )-G(  1 1, J >  )  ♦  0 ( I I 0 , J ) 

5? 

G<  14,  j  )  = 
c t  Tuk  N 

3.*(G(13,J)-G( 12, J) )  +  G (  1 1 3 , J  ) 

9  1 

•jU  92  J  = 

Jl,  J3 

o  (  I  I  ,  J  )  = 

-  .  o  *  T  A  L 

9? 

u(  I  4  ,  J  )  = 

.  3*T  AU 

G  (  I  I  ,  J  4  ) 

=  -.23+IAIJ 

G  (  I  4  ,  J  4  ) 
k  L  T  ;j  b  N 

E  N  0 

=  ,23+TAU 

»iiG  '..TINE  I  3  T  I  v 

c  :m  r  i  al  f  s  t  in  at  t  l,  pot  t  m  i  al 


COMMON/ A/  GM(13^»36)>0(13?»36)#GM(132#36),SO(132)#illlj2)#i2(13?) 

1  ,A0(iJ2)#Al(132)#A2(132)»Ai(132),60{3fc)f61(36)»t)2(3t) 

2  ,  B3(  36  )  »  NX  ,  NY>  IX  1,  I*  2/KSYI'',  FMACH,  ALPHA,  C  A,  SA,FlMACh2 

3  »  A  L  /  U7II“i»CB»S:j/N5»RG/  I  G  /  J  G 
CuMiiUN/H/  OX>DY,D7,UXX/DYY,DT7/DXY,OXT/DY7,7SP 

COMMON/ J /  «AC,PI,ALS>AL7,AL77,AMPlA,FREO«A,FASAGA,FPACbS,FMACH7 
i  ,  A.MPlM,FPEGKM,FASAGM,CE7AS/CE7AT,CE7A7  7>AMPLC*FPtCPi.»FASAGC/CE7A 
Z  , FREGR , IPSGkF 
CDMMON/STADI/  « P , I R > J k , I R S 7 AL 
COMMuN/WAKE/  N  I  7  »  W  G  (  132  ) 

NX*  N  X  +  1 

MY  =  NY  +2 

C  c  =  CQS(ALPHA) 
it*  SIN (ALPHA  ) 

CA*  FMACH*Cti 
3A  =  F  M  AC  H  *  S  3 

If  (IFS7AD.GT.O)  UJ  7l  11 
Li L  12  I*  3 »  K  X 
L)  C  12  J*  3, MY 
G  :1  (  I  »  J  )  =  G  . 

GN ( I  ,  J  )  =  J  . 

G< I*  J) =  C. 

1?  C^UINUE 

11  uL  22  1=  I X 1 >  1X2 

Y  =  S  0 { I )+bO<  3) 

x *  Au (  I  ) 

HH  =  X*X  +  Y*  Y 
DnH*  l./HH 

XT*  -.5*Y*( AL7+CF 7A7  )  +  DHHMCMX  ♦  3  A  *  Y  ) 

Y  7  *  .  5*  X  *  (  A  L  T  ♦  C  F  7  A7  )  -  GHH  *  (  C  A  *  Y- S  A  *  X  ) 

Vts.M*hh*(x7*Sl<I)  -Y7) 

«I*  G (  I ♦ 1 / 3 ) - o ( 1-1 / 3 ) 

Fx=l.+Sl (I  1**2 
■j  1  5  *  F  X  *  b  1  <  3  ) 

GxSXvB*  A1(1)*GI*S1(I)+VmN 
G l 1 »  2 )  =  G  (  I »  A  )  -GXSXVT/BI  S 
b(I»l>=  G  (  I  »  0  )  -2.*GXSXVb/BIS 
22  C L  77  I  NU E 

Dl.  23  I*  IX2.KX 
7=  NX  +  A  -I 

2  3  wC ( I  ) =  (  ( I ,3) -G(M, 3  ) 

HP  IN*  1G. 

Du  13  I*  3  /  K  X 
C_  13  J*  3/MY 
Y=  SO ( I ) ♦ BO ( J  ) 

HM  =  Y*Y*AO(  I ) *  A  0 (  I  ) 

H*  SOk  r ( HH ) 

MX  =  . 5*H / A  1  (  I  ) 
kv«  ,5  +  H/Pl  (  J  ) 

MM  »*  AiMINi<MNIN,HX/HY) 

13  CONTINUE 

07=  HIM  IN*  7  S*> 

I  l)  7  *  2  .  ♦  V  I  /  ( f  R  t  C  &  *  u  T  )  f  1  . 

IOf*  I J  7 / I P  S  G  P  f  ♦  1. 


fT 
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J  E  *  2  .  *PI /(  ID  T*1  r'  3URE*FkE  lk  ) 

iiir»LT*OT 

OkT*LX*DT 

Li  Y  T  =  C  Y*D  F 

k t  r up  n 

t  N  0 


iUBPLUTlNE  c  E  F  U' 

c  halve:  mfsh  size 

CUM  -UjN  /  A  /  GM(lJ2,3b),G<l32,36),6N(132,36>,S0(132),$l<132),S2<132) 

1  ,A0(132),Al(132)»A2(132)#A3(122),90(36),Bl(3b),B2<36) 

2  >  33(  3t)>iJX>KY,  Ixl>I>2,KSYM>  FMACH,  AL  P  Ft  A  ,  C  A,  S  A  ,  F  MACH  2 

3  >AL*UTlM>C3#Sfa»N3»PCjIG»Jo 
CUMMCN/H/  L)X,DY,l)T>DXa,OYY»UTT,UXY,OXT»OYT,TSK 

CCMMUU  / J  /  >#A.)#E>IfALS»ALT»ALTT,AMPLA»FREa«A,  F  AS  AG  A  ,  F  MAC  HS  t  f  M  ACH  T 

1  , AMP  LM, FP  COP  M, f  AS AGM, CE  T  AS*  CE7  AT,CE  T ATT ,AMPlC>F*t  3»C>  FASAGCxCET A 

2  ,FRtOP> I  PS  UP E 
CCIMMCN/WAKt/  NIT*WG(132) 

DDT*  UT 

HM I N  =  10. 

K  X  =  NX+1 
MX*  NX  +  2 

K  Y  *  GY  +  1 

MY*  GY  +  2 

Du  13  I*  3»KX 
Oj  13  J=  3  >  M  Y 
Y*  5 0  (  IH-BO(J) 

HH*Y*Yt-AO(  I  )*A0(  I  ) 

H=  S 3k  T ( HH ) 

HX=  • 5 *H ✓ A 1  (  I  > 

nr*  .  t> *n / fa i  (  J  ) 

HMIN*  AM  IM  (  HMI  N*  HX  ,  HY  ) 

13  CONTINUE 

D  I  =  HMINMSP 

ICE*  2.*PI/ (FRECP*OT  )  +  1. 

IDT*  IDT/IPS JPP  ♦  1. 

DT  =  2 •  +  P I / ( 10T*IP5UPE  *  F  R  F  3  k ) 

D T  =  AM  IN  1 ( DT» DDT  ) 

14  hATIC  *  DT/DDT 
Ul  T  =  L)  T*  0  T 
L’xE*DX*DT 

L  Y  T  *  D  Y  *  0  T 
IY*  NY+3 
LX*  N X  /  2  ♦  2 

L  Y  =  NY/2  +3 
Du  22  K*  2  >  L  X 
I*  LX+2-K 
II*  ( I -  2 ) *  2  ♦ 2 
UL  22  KK=  3  >  L  Y 

u*  L  Y  h  3  —  k  K 

JJ=  <  J-3  )  *2  »3 
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GM  (  II,  JJ  )«  GM (  I  , J  )*RAUd 
22  G< II, JJ  )  =  G(  I, J  ) 

DC  42  I-  2, MX, 2 
DC  42  J  *  4, MY, 2 


GM  t I , J  )  = 

42  Gl I, J) 

DO  32  J  = 

DU  32  1= 

GM (  I,  J  )  = 

32  G(  I, J  ) 

DC  33  1  = 

M  =  NX  +  4-1 

33  WG ( I  )  *  G  (1,3  >-G (M, 3  ) 
DG  5  2  I- 1X1,1 X? 

Y  =  S  0  (  I)  -*•  B  0  (  3) 

X  =  AO  (  I  ) 


.  5*  (  GM  (  1  ,  J  +  1  )  + 
=  •  5* ( G ( I »  J  +  1  ) 
3,  IY 
3,KX  ,2 

«  5*  (  GM  (  I  4-1 ,  J  )  + 

*  . 5*(G(I+1»J) 
1X2, KX 


GM (I , J-l  )  ) 

+  G(  I, J-l  )  ) 


G  M (  I -1 , J  )  ) 
♦G (  I-  1  ,  J  >  ) 


HH=  X*X  +  Y*Y 
DHH=  l./HH 

XT  =  -.5*Y«‘  (ALT  +  CE  TAT)  +  DHHMCA*X  +  SA*Y) 
Y  T  =  »5*XMALT+CETAT)  -JHH*  ( C A*Y-S A*X  ) 
V6N=hH*(XT*Sl(I)  -YT) 

6 1  =  G (  1+1, 3  ) - G (  1-1, 3) 

FX*1.+S1(I  )  **  c 
813=  F  X  *  3 1 ( 3 ) 

G  x  S  XV  6  *  A1 ( I ) *GI*31 <  I  ) ♦ V9N 
GC  1,2)  =  G ( I , 4  )  -GX3XV8/JIS 
G <  If  1 ) -  G (  1,5)  -2.*GXSx Vfi/falS 
GM (  1 , 2  )  =  G M ( 1,4) 

52  CbNTINUE 

N  =  1X1  -1 

DC  62  1=  3,  N 
M  *  NX +4  -I 
G  M ( M , 2 ) =  GM  ( 1,4) 

62  G  (1,  2  )  =  G(I,4)  +  rfG(M) 

N  =1X2+1 

DC  6 A  I*  N , K  X 
M*  NX+4  -I 
G  M  (  M  ,  2  )  =  G  M  (  I  ,  4  ) 

64  G  <  M , 2  )  *  G  < I , 4  )  -W6<  1  ) 

RETURN 

END 


SU3RUUT  lijfc  VfcLu 
CALCULATE:)  3  J  P  E  A  C  F  VELOCITY 

CUMMCN/A/  GM(132,3b),G(132,36),GN(132,36),SO(i32),Sl(132),S2(132) 

1  ,AG( 132), A1(132),A2(132),A3(132), 60(36), Bl(36), 62(36) 

2  ,  d3(  36)  ,  N  X  ,  N  Y,  I  XI,  IX2,*SYM,  F.1ACH, AlPHA, CA,  SA,FMACh2 

3  , AL,gT1M,CR,S3,NS,RG,IG,JG 
CLMMuN/O/  SV (  13  2 ) ,5  M( 1 32) , CP<  132  ) 

C  L-IMuN  /  H  /  DX,UY,CT,UXX,DYY,UTT,DXY,DXT,0YT,T3R 

CCMMGN/J/  RA(.,P  I,  ALS,ALr,ALTT,AMPLA,FRfcJ^A,FASAG4,FMACHS,fMACHT 


10  7 


1  ,  A.1RL%  Fr  E0r‘.v!,  I  ASAu^.ClIA.m.!  lATT,A''PLC,FetGFC>FASAuC>CETA 

c  >FRfGR»IP3UFfc 
Oj  1 Y  f  N  /  k  /  I0»  1 1  >  I  2  >  i 

uU  f  :  1  •  /  iJ  1 

»•  A  0  -  1  « 

j  ~  <.  ?  I  =  i  x ; ,  i  x  2 
Y*i.H3)+il  (  I  ) 

*  =  AO (  I  ) 
hm*  x  *  >  +  Y*r 

it M -  i  .  /  i it ■ 

x  I  =  -  .  i,  *  Y  *  (  A  L  T  ♦  l 1  T  A  T  )  ♦  .  \  ■ .  *  (  c  A  *  *  ♦  j  A  *  T  I 

1  I  *  .  7***(Al1«-CtlAT)  -  . •  O  i  *  t  2  A  *  t  -  ‘j  A  *  X  ) 

M  *  S  -  R  T  (  Hh<  ) 

!•»-=  l./H 

,i=  JI  +  1>3)-|j(1-1*3) 

*  0(I»A)-G(I>2) 

\j  X  =  A1(I)*  6  1  -jlll)*  *:!(?)*  GJ 

6  Y  *  3  1  (  3  )  *  G  j 

o  *  6  X  *  i)  H 

V*  G  Y  *  OH 

wii  ■  J*  J+  V*  V 

jF  *  X  r  *  H ♦  o 

v  K  *  rT*H  +  v 

wUR  =  u  R  *  U  F  +  VP* VR 

«K  *  S>rF  T  (  UQR  ) 

IF(UF.LT.G. )  C  R  -  -CB 
3 V  (  I  )  *  OF 

CHAIN*  x  T  *  o  X  f  Y  T  *  3  Y 
FIT*  *  OUT  +  CHAIN 

A«=  A  AO  -,2*0  0-.A*FIT 
A  A*  A  H  S  (  A  A  ) 

A*  S  ki  K  T  (  A  A  ) 

SI-  (  I  )  =  OF  /  A 

i  ?  vlrMI)*  (  A  A*  *  3  .  -1  .  )  /  (  .  7*FF:ACH2) 

k  t  Turn 
END 


Su3»LjTlNfc  FORCE 

C  CAlCLLATES  FuFCE  coefficients 

k  jut  A/  GM(13?>36)»G(132»3b)»GN(i3£*ib)»Su(132)»Sl(132)»i2(132) 
i  »AG(:32)»Al(l32)»A2(132)»A3(132)f60(36)»El(3b>#B2(36) 

0  >33(3F')»NX,NY,IXlklx2,KSYrlfFHACH,AL?HA#CA»SA,FMACH2 

3  *  A  l  *  J  T  I'vl»CB»Sri»>'t5  »p0  >  I  G  »  J  G 

S  V  (  1  3c  )  t  5  M  1  3  7  )  ,  CF  (  132  ) 

■.  Y  ^  LM  /  C  /  XR  (  2tC  )  »  YP  (  2r,0)  ,  11  (  2t  (  )  ,  0  2  (  2  t  0  )  ,  0  3  (  2  6  0  ) 

C  i,MvIi‘jN/F  /  CHI.  k[  ,  xr ,  C  L  >  0  [)>C  Y 

i.,,YY_  ,  /  L  /  T.L(»Ci),TC^(o^l)»TCK'ltol)»TCPl^»301),URSl'n»CLS»CGS 

1  »  C  y  S  »  N  I  T  1J  'JR,  R  ».X  3  1  F  t  .  J  S  T  i  P  ,  P  E  K  I  L  0  ,  M  H  A  L  F 

6  u*  Y[.\/ w  MT  »  «  G(  1  32  > 

CL  *  j. 

C  :  *  0  . 


i 
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C  .1  =  C  . 

N= I X2-1 

DO  12  1*1X1, N 

D  X  = { X  P ( I ♦ 1 »  — X  P (  I  )  ) /CHORD 

DY* ( YP ( I +1 )-r P ( I ) ) /CHORD 

xa=(  .t>*(  xp(  i  + 1 )  +  x  p ( i )  )-xm)  /  chord 

YA*.3*(YP(I+1  )  +  Y  P  (  I  )  ) / C  H  JR  C 


CPA 

S 

.  6  *  (  C  P  (  I  ♦  1 ) 

♦  CP (  I  )  ) 

DC  L 

= 

-C  PA  +  DX 

DC  0 

= 

C  PA*UY 

CL 

CL  ♦  DC  L 

CD 

= 

CD  4  DC  D 

12  CM 

= 

CM  +  D  C  D  *  Y  A 

-  DC  L  *  X  A 

DC  L 

= 

C  L  *  C  0  S ( ALPHA) 

-CD*  S IN ( ALPHA ) 

CD 

C  L  *S I N( ALPHA) 

♦  CD*CCS(  ALPHA) 

C  L 

z 

J  C  L 

I F  ( N  I  T  .  N  E  . 

0) 

pe turn 

IF (NITS. EO 

.0)  GL  TO  11 

I  JUMP*  2**MHALF 
CLS*  CL 
CDS*  CO 
CMS*  CM 

ISP*  (IX1  +  IX2  >*.:> 

1=  1 

10  TCPS(  I)*  C  P ( ISP) 

IF ( ISP.GE. 1X2  )  GC  TO  11 
I*  I  +  l 

ISP*  ISP+  IJUMP 
GL  IC  10 

11  NITS*  0 

JJSItP*  JSTLP  +  1 
TCL ( J JSTEP  )  =  Cl-CLS 
TCD(JJSTEP)  =  CL  -CDS 
TCM(JJSTEP)  *  CM  -CMS 
IJUMP*  2** M HALF 
ISP*  <  1X1  +  IX2J*  .5 
I*  1 

13  TCP(I,JJSTEP)=  Cm  (ISP)  -TCPS(I) 
IF(I5P.GE.IX2)  GO  TO  14 

I*  1*1 

ISP*  ISP  +  IJUMH 
GO  Tu  13 

14  P  t  T  U  P  N 
END 


SUrfPljUT  INt  C  P  L  0  T 

C  PLOTS  CP  AT  Ewl’AL  INTERVALS  IN  THE  MAPPED  PLANE 

COMMON /A/  GM(132»36),G(132,3fc),GN(i32»3t>),S0(132)>Sl(132)>S2(132) 

1  »AC(L3<.)»AI(132)»A2(132),A3(i32),80(3o),Bl(3b)>eA(3fc) 

2  ,S3(3M,NX,NY,Ixl,iXZ,tvsYN»FMAC-»,AlPHA,CA,SA»fMACH2 

3  ,AL,UTiM,Cb,jj,NS,PG,IG,JG 


F I  T*0 


u  F  CP 
>  NR- 


INTER VALS 


COMMCN/d/  .>\/(132),3M(132)»CP(13  2) 

C  J  -1  -1  □  N  /  C  ✓  XP(2f'0>,YH(2bu),Jl(26O>,D2<2t0)»D3(26  0) 

COMMON/ ST  Adi/  (-KI  IP,  JR  ,  L  r  AD  I 
01  ME  NS  I JN  NUDE  (2  ),  LINE  tilt,) 

DATA  k  D OF  /  IH  ,  li  1  +  / 

OO  IS  F  R  S  E  R  V  UR  PRtSSURE  Cltl  F1CIENT  WHERE  0  =  0  AND 
CRO*  0. 

IP(ISTADI.oT.C)  CP0=((1.+.2*FMACH2)**3.5-1.)/{.7*FMACH2) 
1 1= I x  l 
12*1X2 

I  «  R  I  T  =  b 

white  i  i  w  r  i  t  #  2  > 

FORMAT ( 5  OH  OP  L  D  T  uF  CP  AT  FOuAL  INTERVALS  IN  THE  MAf 
WHO  X  ,  H  H  CF  ) 

Cu  12  1=  1,115 
L  INE  (  I  )  =  KuDE  (  1 ) 

Ob  2c  1=11,12 

K*  20.* ( C  PO -C  F (  I )  )  +55.0 
IF  <  R.LT.i)  K*1 
I  F  (  K. ST. 115)  K  =  1 1 5 

L  1  W  E  ( K )  *  hUUE ( 2 ) 

w+ITb  (IwRIT,o10)Xh(I), CP(I), LINE 
L  INE  (  K  )  =  K. ODE  (  1  ) 

Ft  TURN 

FuRMATtlH  ,  2F 9.  A,  1  15A1  ) 

E  NO 


AT  r  0  u  A  L 
CF  ) 


mapped  Plane/ 


I  >  ,CP  (I)  ,L INE 


S  u  RFC  Li  TINE  CHART 
GENERATE  S  MACH  N  J  ChAkT 

CuMMON/A/  GM(132,3+),G(132,3h),GN(132,36),SO(132),S1(132),S2(132) 

1  ,A0( 132 ),Al(ij2),A2(132),A3(132),80(36),Bl(36),32(3b) 

2  ,d d<  3+ ) , NX , NT,  I  X 1, I  X  2,H  SYM, FMACH, ALPHA,C A, SA, FMACH2 

3  ,Al,UT1M,C8,}i3,NS,RG,  IG,JG 

C  j  M  MuN  /  H  /  Ox,  CY,  OT,riXX,OYY,LTT,DXy,DxT,DYT,  TSR 

C  II  M  M  [i  N  /  J  /  R  A  0  >  P  I,  AL5,  ALT  jALTT  ,AMPLA,  F  RE  0  R  A  >  FASAGA,FMACHS,FMACHT 

1  , AMFLM,FFECHM,fASAGM,CETAS,CETAT,CETATT,AMPLC,FREQRC,FASASC,CETA 

2  ,FkEGR,IR5'JRE 

COMMON /K/  10.  II,  12,  12, 0  1,  J2, J3 
DIMENSION  I  N  0 (  15o  ) 

D  U  T  =  1  .  /  D  T 
A  A  0  *  I. 

I  m  R  I  T  *  6 

K  =  NY/32 

IF  (NY  .GT . 3  ?  *  K  )  K  =  h  +1 
WRITE  (  I  WR  IT , 2  ) 

’  forma  T{  iahomach  ,,l  Chart  ) 

Ou  12  I-  10,13 
J  =  J  1 
N  *  0 
>  U*  N  ♦  1 
X  =  AC  (  I  ) 


L 


J 
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r =  so ( i ) *uo ( j ) 

Hh  =  X  *  X  ♦  Y*Y 
PHH*  l./HH 

XT*  5*  Y*  (  AL  T  +  CE  TAT  )  +  UHH*(CA*X  ♦  SA*Y) 

Y  T  =  .  6*X*  (  AL  T  +C  £  T  AT  )  -0  HH*  (  C  A  *  Y  -  S  A*  X  ) 

H  =  S  C  R  T (HH ) 

U  H  ■  1  .  /  H 

61 *G ( I  +  1»J ) —  G (  1-1, J  ) 

6  J 1 G (  1, J  +  l )-c( 1,4-1  ) 

GX  *  A  1  (  I  )  +  o  I  —  S1(I)*B1(J)  +  GJ 

GY  *  8  1  (  J  )  *  G  J 

U»  G  X*0H 

V*  G  Y  *  OH 

OC*U*U+V*V 

CHAIN*  XT*GX  +  YT*oY 
FIT*  GM(  I» J  )  *CL  T  ♦  CHAIN 
AA*  A  AO  - . 2*G0- .4*111 
A  A*  A  0  S  <  A  A  ) 

UR*  X  T  *  H  +  U 
Vk*  Y  T  *  H  +  V 
OCR*  UR*UP  +  V R  * V  R 
UA=Q0k/ AA 

I N  D  ( N  )  =  1CQ.*SGRTUA) 

I M  UR . LT . 0.  )  INC (N )  =  -  I  NO ( N) 

J  =  J 

iktJ.LE.J2)  GU  T  C  14 
12  *kIT t  II  WRIT, 6)0)  ( JN0( J),J*1,N) 

R  E  T UP  N 

010  FLRMAT(1X,32I4) 

END 


3  0  3  K  U  Li  T  I  N  t  PSjPt 

C  ^ENEkATEG  PRESSURE  0  I j f ? I BU T I  UN  OVER  AIRFOIL 

C  A I  EGUAL  INTERVALS  IN  THE  MAf-PEl  PLANE 

C  aITH  The  AjGJCIAIEO  SHOCKS 

COMMON/ A/  vjM(  13C,  3fc)  ,vj(  132»36)»ON(  132,36),  5  0  (  132  ),  Sit  132), S2(  132) 

1  ,AO(132),A](lj.?),A2(132),A3(132),BO(36),Bl(3b),B2(3b) 

2  ,33(36), NX, NY,Ixl,I>2,kSYK,FNACH, ALPHA, CA,SA,FM AC H2 

3  ,AL, UTI.M, CL, j0,N  3, RC,lG,JG 
C  L/MiMUN  /  0  /  3V(132),S.M(132),CP(132) 

CUMMCN/C /  XP(  260  ,  YP  <200  ),  Cl(  2t  0  ),  02  (260  )  ,03  (  26C  ) 

U.  M  Ml.  N  /  E  /  C  H.)  RO,  xM, CL, CO,  CM 
CUM  Ml N/G/  TITLE (20), IPLCT 

COMMON/ J  /  RAD,PI,ALS,ALT,ALTl,AMPLA,hRFQRA,FASAGA,FMACHS,F«ACHT 

1  ,AMPLM,EktjkM,f  ASAGI-,CETAS,CLTAT,oE  TATT,  6MPLC,FRE0Rl,FASAGC,CETA 

2  , FREQR,  IPSUR E 

01  MEN  SI  ON  X ( 260 ) , Y ( 260)  ,k (  l 3C  ) 

IE  (  IPLOT  )  1,11,101 

1  CALL  PLUTSBH 6C0U , 2 3 H I -C  H)N G  CHANG  1C91C4W) 

11  CALL  PLOT (2. 5, 2. 00, -3) 

CALL  SYMiiuL(-2.t,-l.G0,.07,3,C.,-l  ) 
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v  A  L  L  S  Y  M  8  L .  L  ( -J  .  -j  ,  -  i  .  b  0  >  .  G  7  *  1 ,  C  .  ,  -  1  ) 
t-  (  4-,  12,  *  )  T  I  T  L  t 

i  ?  f  u  a  n  1 1  a  1 1 

CALL  S  YMI'LiL  (  -  .  P,  -  .7b,  .  1  4  ,  4  ,0.  ,  4‘«  ) 

F  A  A  -  FASAoA*i-3  0./PI 
i  A  =  F  A  S  A  l  1  *  1  3  U  •  /  P  1 
►  A  C  *  r  Ai ACC  f  1  bu.  / ^  i 
t  N  C  J  L  •'  t  (  5  7  »  1  4  »  P  )  i.j  T  1 1'.  ,  F  A  A  >  F  A  F  ,  F  A  C 

1  a  r  o  a  M  A  r  (  b  m  1  I  N  L  =  »  1  ?  .  F  j  J  X  »  j  i  iALFA=»F7.2*3X,b(M  FAc,F7.2»3X,bHCEFA*> 
i  F  7  .  Z  ) 

CALL  SYM tL L (- . 1,-1 . 0,  .  i A, P ,C  . , 1  7 ) 
c  f.  CULT  (  42,  lb,  P  )  A  L  >  F  MAC  -i ,  C  F  T  A 
lb  FORMAT  (5- HAL  =  ,  F  7  .  3,  3  x  ,  bH.'l  =  ,  F  7.  3,  3X  ,  ShC  E  T  A«  ,  F7. 3  ) 

CALL  S  Y  M  B  L)  l  (-, b,-l. 2b, .14>k,C., 42} 
t  r.C  JOE  (  42  ,  1(>,  P  )  CL, CO, CM 

it1  FLPMzTlbHCL  =  P7.4,_}X,pHCiC  =,F7.4,3X»bHCM  5  ,  F  7  >  ‘t  I 

CALL  SY.v1oUL(-.5»-1.5C».1<»xP»0.xa2) 

X  M  A  X  =  X  P  (  I  X  1  ) 

X  M  I  N  *  X  P  (  I  X  1  ) 

LC  2Z  I  *  Ixl,  1X2 
XM AX=AMAX1(XP(1),XMAX) 

22  X.-ilM  =AMM  (XP  (  I  ),  xMI.N  ) 

SCALE  =  b./UMAX  -  X  M  I  N  ) 

JL  2A  I*  I Xi,  1X2 
X  (  I  )  =  S  C  A  L  E  *  (  X  P  (  I  )  -  X  M  I  ;N  ) 

24  Y (  I )  =  SC  ALt  *Y  P  (  I  ) 

N  =  IX 2- 1X1*1 

CALL  LINE(X(IXl),Y(IXl),H,i»C,i,C.,l.»C.,l.) 

C  P  M  A  X  =  o  . 

I  N  A  X  *  I  X  1 

or;  2i  i *  i  x i ,  i x 2 

AbSCP=  ABS (CP  (  I  )  ) 

I  F  (  AeSCP  .  LE  ,C  PKAx  )  GO  TU  2b 
CPMAX^ABSCP 
I  M  A  X  =  I 

2b  Continue 

CALL  PLCT(C.,4.2b,-3) 

CALL  AX  IS  (-1.  ,-4  .  ,2HCP,2,  d  .  ,  4-0.  ,  1,6#-.  4,  0) 

C  CPC  IS  CRITICAL  mPCSSUKE  CLEFFICIFNT 

A  A  =  (1  .♦.2*FMACF2  1/1.2 
CPC=(AA**3.b-l.)/(.7  +  FMACrl2) 

I  F  (  v.  PC  .  OF  .  -1  .  b.  AND  .  CPC  .  LF  .  i  .6  ) 

1  C  A  L  L  5YMjuL(-1.,-2.SO*(_PC,  .4,  1  b  ,  0  .  >  -  1  ) 

32  1=  Ixl,  I*AX 
I  i  ( C  P (  I  )  .  C  T  .  1  .  A )  CC  TJ  32 
IF  (  C  P  {  I  )  .  L  T.-  1 .  O  GU  TU  32 

CALL  SY  -1  L  (  x  (  I  )  ,-2  .  o'J*  C  P  (  I  )  ,  .<  7, 3,  4  b . , -  i  > 
i  ?.  !  NT  1  N  tj  F 

J..  3  a  Is  I  M  A  x  ,  I  x  2 
I  r  (  C  ►  (I)  .  <•  T  .  I  .  f  >  CO  r  J  3  4 

;  -  (  F  p  (  :  > .  l  i .  -  i .  *  )  N.l  I  _  S-. 

>.  A  t  L  J  y  M  t'.  I  L  (  *  (  I  )  ,  -2  .  S  U*  C  i  (  1  )  ,  .  7  ,  i ,  F> .  ,  -  i  ) 

/  4  . ,  i  I  2,'N 

call  j  y  m  p  l  (  -  ?  .  ,  -  ’j  •  7  j  ,  .  ('  / ,  3 ,  u  . ,  - 1 ) 


CALL  3YMB0L(b.5,-5.75>.G7,J,C.,-l) 
CALL  PLOT (-2 . 5,-b.25,-3) 

CALL  FKAME(l) 

RETURN 

101  CALL  PLQT< G. ,  C.,  J99) 

F  E  T  U  R  N 
END 


SL3KUUT INE  LORO 

GENERATES  THE  LOADING  0  I S T « 1 BUT  I ON  OVER  AIRFOIL 
AT  EGUAL  INTERVALS  IN  THE  HAPPEl  PLANE 

C  u  N  M  0  N  /  A  /  GM(13?,3b),u(132,3G),GN<132,3fc),30(13?),31(132),S2<132) 

1  ,  AO  ( 13d )»Al ( 132)>A2(132),A3(132),bO(3b),fcl (  3  b  )  ,  B  2  ( 3b) 

2  ,33(36), NX, NY, Ixl, 1X2, KSYM,FMACh, ALPHA, CA,SA,FMA:m2 

3  , AL»J1IM,CB»S3>NS»RG,IG,JG 
i  J  M  M  G  N  /  E  /  S  V  (  1  3  7  )  ,  S  I-  (  1  3  2  )  >  C  P  (  1  3  2  ) 

C  u  M  M  G  N  /  C  /  X  P  (  2.  t  G  )  ,  Y  P  (  2  b 0  )  ,  G  1  (  2 6  G  )  ,  D 2  (  2  0 0  )  ,  0  3  (  L  6  0  ) 

CCMMLN/E/  CHuRD, X f, Cl, CD, CR 
C  OMMDN  /  F  /  xR,YR,Kb,xS(5GG),YS(5G0) 

CGMMl-N/G/  TITLE  (<.0)»  IPL.JT 

CuMM.jN/J/  kAu,c’l,ALS,ALT,ALTT,ANr'LA,FREGRA,FASAGA,FMACHS,FMACHT 

1  ,AMPLM»FhLwR  M  ,  E  A  S  A  G  N  >  C  E  i  A  i  ,  C  1 1  AT  >  L  c  1  ATT  »  A  M  P  L  C  >  F  R  E  0  R  C  ,RAGAvjC,CFTA 

2  ,FREGR,  IPaURE 

UlMtNSIQN  X(2  6u)>Y(2t-.),«.(15G)>0CP(L32) 

11*1x1 
U*  I  X  2 

IF  (  IPLGT  )  1,11,101 

1  CALL  ?LQTSBL(  SCC 0 , 2 3 H 1 -C hu n G  ChANG  1C91C4w) 

11  CALL  PLOT (2.5,2  0,-3) 

CALL  3YM3GL(-2.L,-1,50>.l7,3>G.,-1) 

CALL  SYM3uL(o.5,-1»5C,.o/,3,L.,-1) 
f.  NCOuE  (  4o,  12,  R  )  TITLE 
1?  eGRMAT(12A4) 

CALL  SYM0UL(-.b,-.7S,.l4,R,C.,4H) 
f  A  A  =  F  A  S  A  G  A  *  1  .‘3  G  •  /  R  I 
F  AM  =  FASAGM*lbO. /PI 
FAC*  FAS  AGC-xidO.  /  PI 
ENCuGE(a7»14,R)  oTIM,FAA,FAM,FAC 

14  F  u  R  M  A  T  {  5HTlMt=,F7.2,3X,5HALFA*,F7.2,3X,5HM  FA*,F7.2,3x,5HCtFA*, 

1  F  7  .  L  ) 

CALL  S  YM  3  0  L  (  -  .  5  ,  -  1  .  C  ,  .  1  4  ,  R  ,  0  .  ,  5  7  ) 

ENCODE ( 42, 15, R )  A L , E M AC h , C E T A 

15  F,'JRMAT(5HAL  *,F  7.  3,  3X,  5l:M  *  ,  E  7  .  3  ,  3  X  ,  5HC  E.  T  A  -  ,  F  7  .  3  ) 

CALL  SYM3UL(-.5,-1.25,.l4,R,C.,42) 

ENCODE  (  4  2,  lb,  R  )  C  L  ,  C  D  ,  C  M 

IE  FGPMAK5HCL  =  F  7 . 4 , 3X  ,  5HC  D  =  ,  F  7 . 4 , 3  X  ,  5HCM  =,e7.4) 

CALL  SYMBOL  (  -  .  5  ,  -  1 . 5  0  ,  .  14,K,C  .  ,  4  L  ) 

XM  AX  *  X  P (  11) 
x  M  N  *  X  P  (  I  1  ) 

Du  2l  1=11,  12 
X  M  A  X  *  AM  A  X  1  (XP (  I  ) , XMAX  ) 


•sis: 


173 


2  2  A  I  N  =t.:i  il(Xr'(l),XMM 

J  ■.  3  L  ‘  =  6  .  /  (  X  />  4  X  —  X  .1  I  N  ) 

.L  c*.  1=11,11 

* ;  i )  =  sc  al  t  *  ( <  p  ( i )  -xr*  i  v  ) 

3  4  Y(I)  =  :>CALt*YP(I) 

1  f .  .1 S  r  *  +  I>  2  ) 

uu  2  O  1=  i  <U):i 1X2 
‘iH  +  4  -  I 

Ll?i I)  =  C  R( w ) - C  P (  I  ) 

3  L  .1  ,  I  !  N  U 1 

N  =17-11+1 

l  ALL  L  I  N  f  U  (  ;  1)  ,  Y  (  I  1  )  ,\i  ,1,C,  1,C  .  ,i  .  ,  G.,  1  .  ) 
CALL  PL.]T<L.,4.?b,-3) 

CALL  AXIS  (-1.  ,  -  a  ,  >  3  H  D  C  P  *  3  ,  ‘  .  >  GC  .  ,  -  1 .  t ,  .  <t ,  0  ) 
D  o  3  7  I  *  I  N  )  S  u  ,  I  2 
Ip(jCp(I).GT.1.M  Gu  T  u  31 
I  F  (  DC  P<  I  )  .  L  1  .  -1  )  CC  10  31 

CALL  S  Y  M  B  G  L  (  a  (  I),  1 .  3*JC P  (  I  )  , .07, 3, 0. ,-l ) 

j  i'  C  u  '1 T  1  N  U  E 

CALI,  jYML-Gl(-2,C>-.<.7b>,07>3»0.»-l) 

Call  S  Y  Y  B  C  L  (  b  .5,-5. 73,  .07,  3 , 0  .  ,  - 1  ) 

CALL  PLOT (-1. 3, -6.13, -3  ) 

CmLL  Fk AYE  ( 1  ) 

RE  TURN 

iCl  CALL  PLu  T  (  D.  ,0.  ,  ) 

R  E  T  U  y  \ 
t  NO 


SUBROUTINE  3  0  N  1 C 

GENERATES  3  0  7  I  C  LINE  OVER  AIRFOIL 
RtNAY,  t  C  LiN  Y  o'i/A/ 

THE  ruSITIJN  :f  on  is  overlapped  by  shuck 
Cl.HML'N/A/  oY(  132,  3b),G(132,3b)  , SHOCK)  131,36) 

*  ,S0< 132) , 5 1 ( 132), S2( 132) 

1  ,A0(132),Al!132),Al(132),A3(132),30(3b),Bl(3b),62(36) 

2  ,  LJ3(3t)»NX, NY, 1X1, 1X2, KSYM,ENACH, ALPHA, CA,SA,FMACH2 

3  ,AL,UTIi’',CB,ib,NS,Ro,IG,JU 
U.YNCN/B/  3  V (  132),SM(132),CP(132) 

CuYYUN/C  /  XP(26O),YP(2bO),l;i(2bO),D212t0),D3(26O) 

L  u  ‘1 Y  L  N  /  0  /  3  L  „  P  T  ,  1  R  A  I  L  ,  3  C  A  L 
CuYVN/F/  CHORD,  x  m,  c  L  ,  C  U  ,  C  N 
C  U  M  .1 L  N  /  F  /  X  P  ,  Y  R  ,  K  3  ,  X  S  (  b  U  U  )  ,  Y  S  (  3  C  0  ) 

CGHHuN/G/  TITLE (20), IPLUT 

CUNY  1.  N  /  H  /  UX,OY,[)T,Cxx,DYY,JlT,jXY,OXT,DYT,TSR 

C(jM:-H'N/ J  /  PAD,PI,ALS,ALT,ALTT,AY.PLA,FREuRA,FASAGA,FYACHS,FHACHT 

1  ,AYP2Y,PRi(„RY,FASAGN,LFTAS,Cf:TAT,lETATT,AMPlC,FREQPC,FASAGC»CFTA 

2  ,FYfwp,lPSuRL 

C  F  YMUN/K/  10,  II,  II,  I  3 , J  1  ,  Jl  ,  J  j 
i  1  Y  F  N  „  I  ON  X  A  (  2  H  G  )  ,  Y  A  (  2  o  G  )  ,  Y  (  1  6  L  ) 
j;  5  I  J(2b0) 

I  r  (  1  p  L  J  1  )  1  ,  1  1  ,  1  C  1 
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1  CALL  PLOTSBL  (  bOGU  *  2  3H  I  -  C  rl  UN  j  CHANG  1CP104W) 

11  CAlL  PLJT< 2. b, 2. OU, -3  ) 

CALL  SYMi3  0L(-2.G,-l.bu,.07,3,G.,-l) 

CALL  S YMbUL ( (  .b,-l.bG,.o7,o,0.,-l) 

ENCODE ( 48,  12, P  )  TITLE 

12  FORMAK12A4) 

CAL,  SYMeCL(-.b,-.7b,.lA,«,0.,Ab) 
r  A  A  =  F AS AbA* 1 80. / P I 
FAMr  FASAGM*180./ PI 
F  AC  =  FASAGC  +  1 80. / PI 

EN  C  J  D  E  (  b  7,  1  A  ,  o  )  U  T  IN,  ,  f  A  A  ,  F  A  M  ,  F  A  L 

14  E  u  P  M  A  T  (  b  H  T  I M  fc  *  ,  F  7 .  2  ,  3  X  ,  D  H  A  L  P  A  =  »  F7.<;>  3  X  ,  b  H  M  PA=,F7.2,3X,5riCLFA=, 
1  F7.2) 

CAL,  SYMBOL ( — . b  ,  -  1 . 0  , • 1  a  »  P  >  C  . ,  b 7 ) 

ENCODE  (  42,  1  -j,»  )  AL,FKACH,CETA 
lb  FORMAT  (bHAL  =  ,F  7.  3,  3X,  bHM  *,F7.3,3X,bHCETA«,F7.3) 

CAL,  5YM«GL(-.b»-1.2b,. 14,  cG.,42) 

EMCuCE (42,  io,P)  CL, CD, CM 

16  F  uPMA  T  (oPlCL  =F7. 4, 3X, bHC J  = , F 7 . s , 3 X , bH C M  =,F7.4) 

,  All  iYMP.CL(-.b,-l.bC,.14,A,C.,42) 

C  A1PFLIL 

X  M  A  X  =  XP(lXl) 

X  M  I  N  =  X  P  (  I  X  1  ) 

Du  22  1=  I  X 1 ,  IXc 
xMAX=AMAXl(XP  (  I  ) , X  M  A  X  ) 

22  X  M  I ' .  =  AM  I  N  1  (  X  P  (  I  )  ,  X  MI N ) 

SC  All  =  b . / ( X  M  A  X  -XI I u) 

DO  2  4  i=  I x 1 ,  I  x  c 

X  MI’  =  SuALF*(xP(I)-XMIN) 

24  Y  A ( I  ) =  SCALE*YP(1) 

Call  plot (u«, 4.,  —  3) 

N=  I  x  2“ I xi +1 

CALL  L INE  <  X  A<  I>  1  > , Y  A(  lx  1 >  ,N,1 ,C , I ,0. ,  1.  ,C. > 1 .  ) 

A  A  0  =  1  . 

DL  T -  1,/JT 
Du  2  1=  10,13 

DO  2  J  =  J 1 ,  J  3 
X  =  AC  (  I  ) 

Y  =  SO (  I ) +B0 ( J  ) 
rtH  =  X  *  X  +  Y  *  Y 
GHH  =  l./Flh 

X  T=  -  .  5*  Y*  (  ALT  +  IF  T  AT  )  +  JhHMCA**  +  S  A*  Y  ) 

Y  1  =  .  b*  X*  (  AL  T  +  CE  T  A  T  )  -UH.i*  (CA*Y-SA+X  ) 

H  =  SOP  T  (  HH  ) 

DH=  l./H 

GI*G(I+1,J)-G(I-1,J) 
o J  : o  i  I  ,  J  +  1  ) (  1,0  1  ) 

GX  =  A  1  (  I  )  *  G  1  -S  1  (  I  )  *1  i  (  J  )*  GJ 

GY  *  I!  1  (  J  )  *  GO 

L  =  oX*0H 

V  -  GY+DH 
UU  *  U  *  U 

V  V  =  V*  V 
gL*:.lt,fVV 
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C  \  =  X  T  *  H  +  U 
v L -  >  T  *H  +  v 

Ui!<=  U f».  *  E 
V L  R  *  V  E  *  V  P 
L*R  =  OUR  +  Vi*' 

CHAIN*  x  T  *  5  X  +  Y  T  *  G  Y 

t-  ;  r  =  GM  (  1  t  J  )  *Ci'T  +  CHAIN 

A  A*  a;  0-  .  2  +  uG-  .  4*F  I  T 

A  A  s  A  P  A  X  1  (  A  A*  .  0  0  C  1  ) 

i  m  JC  k  (  I  >  J  )  =  5  0  (■  T  (  w  J  P  /  A  A  )  -  1  • 

’  CONTINUE 

LOCATES  THu  SONIC  POINTS 
■\i=  C 

i  .  17  J*  J  1  »  0  5 

*  7  *(  J  )  =  Sht-CK  (  I0>  J  ) 

L  C  IP  I =  11*1? 

0  L  if  K  S  J  1  *  J  2 

J  =  J 1  +  J  2~K 

- w 1  SHOCK  (  I*  o  ) 

if  (  j  L  .  N  E  •  C  .  )  -jw  T  J  1  v 

*  J  =  I*  J  *  1 

X  i  (  K  s  )  =  A  'J  (  1  ) 

YS(KS)  *  S  0 (  I  )  +  0  0  (  J  ) 

G  l  .  T  i_  16 

l'*  U  (JC*2(J+i).GF.C.)  GO  TL  AC 
PT*  AE  S  (  wC./  (  u C(  J+  1)  )  ) 
ri!  K  S  ♦  1 
X  b  (  K  S  )  *  A  0 (  I  ) 

Y  j  (  K  S  )  -  S0(  I )  «■  ti  C.  (  J  )  +  ET*( 801 J  +  l ) -o0(  J  )  ) 

20  I  K  wiw*G  (  j  )  .  GE  .0  .  )  GO  TO  In 

KT=A6S(U*/(w-rf“v(J  )  )  ) 

Kb*  kS  +  1 

a  5 ( K  S ) =  A  0 (  I )  +  k  T  * ( AO (  I-l)-AG(i)  ) 

Y  h ( K  S ) *  S  0 ( I  )+riO(J  )  +  R  T  *  (  S  0  (  I  - 1  >  —  S  0  <  I  )  ) 

IP  -  (  J  )  =  OQ 

l'u  2  1  1=  1  »  K  b 

xx*  . 5* SC AL* ( XS ( I  )  **2-YS (  I  >**2  )  +  XR 
YS ( I  )  =  0  C  AL  * XS ( i  )* YS  <  1  )  +  YK 

21  x  b  <  I  )  =  XX 

DC  j  c  I*  1  >  k  S 
X  x *  SCALE* (XS  ( I )  —  X  M  I  n  ) 

YY*  5  C  A  L  E  *  Y  S  (  I  ) 

1 F ( XX . IT .-2 . 0 )  GL  Tu  52 
IHXX.GT.a.5)  GO  TU  52 
IP  (  ALSIYY  )  .  G1  .4.6  )  GO  TL)  52 
CALL  S  Y  N  B  U  L  (  X  X  »  Y  Y  »  .07*  j  *  0  .  *  —  1  ) 

62  CONTINUE 

7o  CALL  SYMBGL(-2.C>-5.5  ,.C7*3*U.»-1) 

CALL  bYUBLLIb. 5*-6.5  » . U7 *  3 » 0  .  » -  1 ) 

CALL  PLOT (-2. 5*-6.G*-3) 

L  A  L  L  FRAME  (  1  ) 

K E TURN 

1C1  CALL  PL  JT  <  0.  .  0.  ,  ) 

RE  TURN 
L  NO 
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S  U  B  P  LI  U  T  I  N  i.  TkACt 

C  GENERATES  JNSTFAOY  TRACES  uF  AIPFjIL 

CuMMCN/A/  of'(13  7/  3;j)/G(l.>2/3fc)/GN<  132/36)/S3(132)/Sl(132)/S2(I32) 

1  , AO(13D)/Al(132)/A2(13,;)/A3<132)/BO(3o),Bi(3o)/ti2(3t) 

2  /  93  (  3t>  >/  NX,  N  Y,  I  X 1  »  1X2,  K  SYR.  /  F  MACH,  ALPHA,  CA  /  S  A  *FMAlH  2 

3  /  A  L  /  D  T  I  M  ,  C  B  /  b  ‘i  t  N  S  /  x  G  »  I  G  ,  J  G 

C  RENAME  CGMMUN/L/ 

CuMMLN/C  /  xP  (  2 to  )  »  Y  P  (  2uG  )  /  !;1  (  2b G)  /  Y  (  2  6C  )  tk  (2  60  ) 

COMMON/o/  TITuE(7C)/IPLCjT 

CLMMLN/H/  JX/OY/uT/DXX,r)YY,DTT/DXY/OXT/QYT/  TSP 

C  J  M  M  C  N  /  J  /  PAu/PI,ALS/ALT,ALTT,A,'-ALA/FkEukA>FASAGA,F^ACHS/FRALHT 

1  ,AMFLM/FPEJkM,FASAGr/LETA5/(ETAr/CFTATT/AFPLC/FPECPC/FAbAGC/CFTA 

2  , FkLGR,  IP Su? F 

COMMuN/L  /  TCL(-;~l)/TC„(9ui),TCF'.  <fcJi)/TCP(V,«01)/TCPSm/CLj/CJS 
1  /CMS/NITS/lJ'J'IP/NSTEP/JSTtP/PERIPD/MHALF 

DIMENSION  X(nOl)»A.jA(o0l)/Fb(ofi)»t-A(3Cl) 

IF  (  IPcUT  )  l.lljkl 

1  CALL  PLJTALL(i'CCC»23HI_CrJUr.o  CLANG  1CR104W) 

11  CALL  PLJT(2.3»2.C0/-3) 

CALL  S  Y  M  B  G  L ( -  2  •  C  /  - 1 . 3  C  / . 07,3,0. /-IT 
CALL  S  Y  M  B  j  L  (  b  .  t  • ,  -  1  .  3  C  ,  .  0  7  ,  3  ,  C  .  ,  -  1  ) 

C  TITLt 

cNCJDF(4o,12/R)  TITLE 

12  FORMAT ( 1 2  A  4  ) 

CALL  SY*1BLiL(-.3,-.3C,.i4,i<,0.,4o> 
t  N  C  0  u  L  (  3  2  ,  1  4  »  P  ) 

14  r jRMAT ( 4CHUNS TEaGY  J V  A C r S  Cf  A  l  k  F  J  I  L  IN  SINUSOIDAL/ 

1  13 F  RIGID  e  0  D  Y  MOT A ON) 

CALL  SYMBOL!-. p,-. 73,  .14,R,o.,3S) 

ADAS-  ALS*PAD 

t  N  C  J  l  £  (  3  7  ,  15,  R  )  ALAS/  A  M  R  L  A  ,  F  P  t  UFA 

13  PUP, MAT  (  1PHNE  AN  ATTACK  AN  CL  b  =  ,  F  3 . 2 , 3  X  ,  4  h  AMP  =  >  F  5  .  2  ,  3  X  , 

1  lOhFPE-  P  A  T  E  =  ,  F  S  .  2  ) 

CALL  SYN3liL(-.S,-1.0C,.l4,P,0.,37) 

ENCODE ( 5  7,  1*,  F )  FMACHS/ AMPLM/FPECRM 
1  f j  FORM  AT ( 13HK- AN  FLIGHT  S P L t U  =  , F 3 . 2 / 3 X , 4H AM P = , F 3 . 2 , 5 X , 

1  1  0  H  F  R  F  J  RATL  =  »Fy.<;) 

CALL  SYrt3uL(-.5,-1.23,.l4,P,0.,37) 

FANGLE=  CETASX'RAj 

ENCJDE(57/17*k)  F  ANGLE, Art  PLC,FPF-1RC 
17  F  u  R  M  A  T  (  1  d  M  M  E  A  N  FtK.hT  u,N  u  L  E  =  ,  F  3 . 2 , 3  X  ,  4HA  IP  «  ,  F  3 . 2  ,  3  X  , 

1  10MFRLC  RATE=»F-j.2) 

CALL  SYMBLL(-.3/-1.30,.14,k,0.»37) 

C  AIRFOIL 

II  *  I  XI 
12=  1X2 

X  M  A  X  =  X  P  (  I  1  ) 

X  h I N  =  X  P  (  III 

DU  p2  I =  11/12 

X  M  A  X  =  A  M  A  X  1  (  X  ?  (  I  )  ,  X  rt  A  X  ) 

32  X  F  IN  =  Av  IM  (  X  P  (  I  )  /  X  MIN) 

b  C  A  L  F  =  3  .  /  (  X  M  A  X  -  X  M  I  N  ) 

J J  34  1=11/12 

X (  I  ) =SC  ALI  * ( x  P (  1  ) -X  MI N) 
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-.4  Y i I ) =  b  C  A  L  t  +  Y  M  1) 

=  i  L  -  I  1  +  i 

CALL  j  I  (<!•»-•  c  :•  »  —  3  ) 

CALL  LINC(a(I1)>Y(I1)#^#1»o»1.»v/.#1.#0.#1.) 

4> lb  3RLbbCKt  bENiuRb  uN  T  iiE  AlKFuIL 
ICJKR*  2*  *  1M  ALr 
IjP=  <IX1+IX2)*.7 
IPCIgt*  i 

1U  -all  3YM6C  L  (  a  (  I  b  P  >  #  Y  (  lj>P  )  #  .C7#  3#0.  #~1  > 

CALI.  C  Y  M  Pi  u  L  (  *  (  I  b  P  ) »  Y  (  1  jP  )  ».C7»3»47«>-1) 

F  N  C  I_n.  6  (  1  »  1  3  #  ■>  )  I  P  <J  1  f<  T 
1  c  P  u  R  1  A  I  (  I  i  ) 

CALL  >Y1iiiL(xU>),.l  +  Y{ISP),.t7#K,0.#l) 

I  M  I  P  JINT  .  ol  .  ci)  oJ  Tu  20 
I  F  (  I.iP.o:,IxC)  L  3  IC  2  u 
I P  J I  NT  =  IPlT-7  +  1 
lb?*  I S  p  +  1 J  U Y  P 

Gw  1 u  17 

UNoTFAUY  PkL.‘.  i'Jkl  IRACf.i  uN  Tht  PPLiSURE  SENIORS 
PC  XbCAL*  l fe . *F P fc C^  )  /  (  2  .  * P 1*Pl k ILL  ) 

IF  (  A  Y  P  L  A  .  E  i  .  C  .  )  oil  TC  77 
A  7  C  A  L -  .  ?  /  A  Y  p  L  A 
Go  1 L  7b 
77  A  b  C  A  L  -  0. 

7  b  J  F  (  AF  PL.T  .  F  7  .  J  .  )  3  C  TL  77 

i  3  C  A  L  =  .  2 / A  mp  i  * 
o  u  T  C  7  7 
77  FoCAL*  0. 

7  P  IF  (  A  iv  P  L  C  .  E  0  .  C  .  )  j  L  IG  v  9 
CbCAL*  .  2/Af’PLC 
L'u  T  L  feu 
7V  CSCAL*  0. 
cC  J  b  =  J  S  T  E  P  ♦  1 
La  2  1  =  1  >  J  S 
TINt*  DT*NSTE P*(  I-i  ) 

X ( I ) =  XSCAL#TIME 

A  u  A  (  I  )  =  A  S  C  A  L  *  A  F  F  L  A  *  S  1  N  (  T  I  M  E  *  F  k  E  0?  A  ) 
r  C>  (  I  )  =  FSCAL*AKPLN*$iN<FKE(.ftr*TIME> 

F  A(  I  >*CSCAL*AY!PLC*SIMFRhjRC*TIME  I 

2  CCNflMJt 

CALL  P  L  0 T ( - 2 . 7 # . 7  7 # - 3  ) 

CALL  AX  IS ( 0. # 0./ 1  IK  #-11/6. »  G  .  #  0 . # . bO*  PER 1QD*  0 ) 

ENCiJGt  (  i  1,  5  J,  R  ) 

7  G  f  IJ  R  i-1  A  T  (  1 1  H  P  h  A  S  E  A  Fi  u  L  L  ) 

CALL  S  Y  M  tlOL  (  0  .  »  -  .  7#  .l<t»R>0.»ll) 
oALL  PLOT!  0. #0. #  3) 

CALL  P  L  *J  T  (  0  .  .  o  .  »  2  ) 

CALL  PLCT(0.,.7#-3) 

CALL.  S  Y  M  3L  L  (  0  .  #  C  .  »  .  07 , 1  7  »  0  .  ,  -  1 ) 

CALL  3Y;iBLlL(“.77»0.#  .l-##blIAANGLE  #0.#b) 

CALL  P  L  0 T (  0 . #  0 . , 3  ) 

Dw  3  I*  1#JS 

CALL  PL  CT  (  x  (  I  )  #  A.JA<  I  )  ,  2  ) 

3  CGwTlMJF 


call  PLOTIO.,  .5,-3) 

CALL  SYMEQL(0.»C.».G7,15»0.»-1) 

CALL  SYMdLL  (-.  75, 0.  ,  .  i*t,  oHFANoL  E,0.  ,  fc  ) 

CALL  P  L □ T (  0  . , 0  . , 3 ) 

DO  A  1=  1, JS 

CALL  PLOT ( X  (  I  )  , F A ( I ) ,2 ) 

A  CONTINUE 

CALL  P  L  0  T ( 0.,  .5,-3) 

CALL  bYMBUL(0.,0.,.C7,15,u.>-l) 

CALL  SYM6Cl(-.?5»0.» .lA,oHFSPFEC,0.,t ) 

CALL  P  L  U  T (  0.  ,  0. , 3 ) 

DO  5  1=  1 ,  j  3 

CALL  PLuT(*(I)»F5(I),2) 

5  CONTINUE 

I  F  (  K  5  Y  f*. .  o  T  .  C  .  A  N I .  A  l  S  .  E  J  .  J  .  .  AN  D  .  A  P!  ►>  L  A  .  l  C  .  0  .  .  A  N  L  .  A  p,  P  L  C  .  t  0  .  C  .  )  C  u  T  0  7  o 
TCMflAX*  0. 

0  0  71  I =  1 ,  J  5 

ABSTCN=  ABS(TCKI)) 

IF  (  A  B  S  T  C  M  .  L  E  .  T  C  N  !'i  A  X  )  a-.i  TO  71 
TC7MAX*  AdSTCN 

71  CONTINUE 
TLMCAL=  .2/TCMNAX 
(j  L  T  u  7  A 

7c  1 C M C  A L  =  0 . 

7A  (.ALL  PLiJT(0.».5»  —  3) 

CALL  SYMBOL  <0  .  ,0. , . C7, 15,0  ., -1 ) 

CALL  5 YMBlL (-  .  26, C. ,  .  1A ,2  MCA , o. , 2 ) 

CALL  PLOT (  Q.,0.,3) 

DU  6  l-  1 ,  J  b 

CALL  PLOT  (  x (  I  ), TCMC AL*  TCM ( I  )  ,2 ) 

6  CONTINUE 

T  C  D  M  A  X  =  0. 

DC  72  1=  1  ,  J S 
AbSTCD*  AoS (TCU<  I  > > 

IF  (  AdSTCD.LE  .TCLMAX  )  Go  TO  7<_ 

TCQMAX=  ABbTCJ 

72  CONTINUE 

TC  DC  A  L  =  .2/TCDFAX 
CALL  PLOTl  j.,  .5,-3) 

0  A  L  L  SYMriUL (0.,0.,.C7,i5,0.,-l ) 

CALL  SYi'IBoLI  —  «2t,0.,.lA  ,2mLi  ,  0  •  ,  2  ) 

CALL  PLOT!  0. ,0. ,3 ) 
oO  7  1=  l,Jb 

CALL  PLOT  (x(  I  ),TCCCAL*TCD(  1),2) 

7  CONTINUE 

1F<KS7N.GT.O.ANu.Al3.Ew.o..ANo.AMPLA.EC.O..AND.AMPLC.EC.u.)  GCT077 
TCLNAX*  C. 

DO  73  1=  1 , J  S 
AASTCL=  APS (TCL ( 1  )  ) 

IF (AcSTCL.LE.TClf’AX)  GO  TO  73 
T  C  L  M  A  X  =  At!  ST  CL 

73  CONTINUE 

T  C  L  C  A  L  *  .  2/TCLNAX 
GO  TL  75 
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7  7  rCLCAL=0. 

7  )  C  ft  l  L  PLjTIO.i.^-?) 

CALL  SY'IdlL  (  U  •  >  C  •  f  .C7ti.-jtJ.f-l  ) 
CALl  SYKP  jL  <-  .  2ht  C.  ,  .  1  -it  c  HCL  »G.  ,  2  ) 
CALL  PLOT (  u.,0., i) 

C-u  3  1=  1  >  J  S 

CALL  PLOT (  X  ( I  )»TCLCAL*TCL(  I  )  t  2  ) 

4  CuMINUt 
T  C  P  N  A  X  *  0  . 

D L  3  u  K  =  1 »  4 
L)U  30  1=  i,JS 
A  3  T  C  p  =  A  lo  (  T  C  P  (  *  »  I  )  ) 
IHAbSTLP.Lf.TCFr- AX)  TJ  3t 

T  L  P  M  A  X  *  A  3  5  K  P 
2  'J  C  j  N  T  I  N  U  L 

TC  3C  A  L  -  .C/TCP'IAX 
CALL  PLOT  (0,»  ,  »  -  3  ) 

CALL  S  Y  'I  e  L  L  (  0  .  tC  .  t  .C7,1^0.,-l) 
CALL  SYMdLII-.2p>0.>.14,2hP1,G.,2) 
CALL  PLOT (  0  .  f l . > 2  ) 

:ju  9  i*  i,j> 

CALL  P  L  U  T  (  X  (  I  ),1CPCAL*TCP(1,I  )t  2) 

7  CjNTIM'JE 

CALL  PLdT(o.,.‘j,-3) 

CALL  SYHPUL(0.»0. » .07»lt?»0.»-l  ) 

^  A  L  L  SYI“!ijoL(-.2b#0.»  .xA»c'HP2>&.>2) 
CALL  PLOT!  0. ^C. >  3) 

02  2  9  I  *  1 , J  5 

CALL  PLOT (XC  i  )»TCPCAL*TCP( 2  >  I  )  t  2  ) 

?  9  CLOT  IN'Jt 

CALL  P  L  U  T  (  u  .».>>  -  3  ) 

CALL  SYMBLL(v).»C.».07,i5>»'J.»-l) 
CALL  SYrWLt-.CHO.,  .  i  .  2  H  P  3  »  0  .  t  2  ) 
CALL  P  L  J  T (  C  .  , 0.  .  1  ) 

Uj  A  1  l-  1  »  J  2 

.ALL  P  L  0  T  (  x  (  4  )  ,7  l  P  C  a  l  »  T  C  •’  (  j  t  I  )  .  2  > 

41  CONTINUE 

l  A  L  L  PLOT  l  0.  i 

C  A  l  L  SY^LlL  (  J  .  t  C  .  >.L7»1E>»J.»-1  ) 
CALL  5YiMnOL(-.2t  »  C  .  ,  .  1  *. ,  2  -i  ►  4  ,  C  .  ,  2  > 
CALl  P  L  u  T  (  0 .  t  )  . t 3 ) 

DU  4  2  I =  1  »  J  S 

CALL  PLJT(xmnCPCAL*TCP(4,l>»2> 

42  CONTINUE 

Call  PL  Cl  TIG. »  .  bt  -  3) 

CALL  SYI*30L ( 3  .  »u . , . 07. 1  b, 0.  ,-l  ) 
CALL  SYMftOL(-.2o,G.,.i4,2Hp^,a.,2> 
CALL  PLOT (  0. ,0. , 3  ) 

DO  43  1, J3 

CALL  PLUT  (  X  (  I  )»TLPCAL*rCP(t>»I  )  t  2  ) 

43  CONTINUE 

call  p  L  0  T  ( J . ,  .  b , -  3 ) 

CALL  iYMPLL  K.»C.  »  .07*  1  7  >  0  .  *-l) 
CALL  5YNBuL(-.2P,0.,.i4,2HP6,0.,2) 


CALL  PLuT(  0.,G.,3) 

0  C  4  4  I  =  1  ,  J  S 

CALL  PLmiX(I),TCPCAL*TC?(6,I),2> 

44  CONTINUE 

CALL  PL  rJ  TIG. ,.5,-:) 

CALL  SYMBOL  (  C.,C  .  ,  .07, 15,0.  ,-l) 

CALL  S  Y  M  i3  L  L  (-«2t,C.,  •  14,2hP7,0.,2) 
CALL  PLQT(  0  .  *  C  .  »  3  ) 

U0  45  1=  1,  JS 

CALL  PLlU(X(I)>TCPuAL*TCiJ(7,I  )  ,  O 

45  CONTINUE 

CALL  FLJT(C.,.5»-3) 

CALL  SYMBOL ( 0 . »  G . > .07,15,0.  »  - 1  ) 

CALL  SYMBCL(-.Z'B,G.»  .l4,2H?b,C.,2) 
CALL  PLOT (  0. ,C., 3) 

00  46  I  *  1,JS 

CALL  PLDT(X(I),TlPCAL*TCP(9,I),2> 

46  continue 

CALL  P  L  G  T  (  0 .  , .5,-3) 

CALL  SYMBUL(0.,0.,.C?,15,0.,-1) 

CALL  SYMBOL  (  .2i,,C’.,.14,2HP>,,u.,2> 
CALL  P  LOT (  C.  ,0. , 3  ) 

Uu  4  7  1=  1 ,  J  S 

CALL  PLG  T  (  X  l  1  ) ,  TCPC  AL*  TC  P  (  /,  I  ),  c  ) 

47  C JN I INJE 

CALL  PLUT(.5>-a.CG,-3) 

CALL  SYKPGL(-2.0»-1.50,..'7,3f0.,-l) 
CALL  SYMbO  L (6 .5,-1. Go, . 07, 3 , C . , - 1 ) 
CALL  PLUT (-2.5, -2. 0,-3) 

CALL  PPAMEt  1) 
h  ETUPN 

101  CALL  PLOT (0., 0  . ,  v  9  V  ) 
t  tTUPN 
END 


SUBPCUT InE  G 4  ID 
PLGTS  THE  N,  t  3  H  ;>  Y  S  T  E  M 
PE  NAME  COMMON /A/ 

THE  POSITION  ur  CM  AND  GN  APF  LVEPLAPPE  D  0  Y  X  h  E  S  H  AND  YMESH. 
ThE  ROUTINE  SHOULD  BE  called  AT  THE  KlGHT  c  N  D  UE  T  H[  P  R  U  o  P  A  M 
COMMON /A/  X  M  E  S  p*  (  132,36) ,  u  ( 132,36 )  »  Y  M  t  5  h  ( 131,36) 

*  ,  SG(  1  32  ) ,  31  (  1  32  ) ,  32  < 132) 

1  , AC(13^),Al(i32)»A2(132),A3(132), 30(36), Bl(_)6),62(3t) 

2  ,03(3 1 ), NX,  r.Y,IXl, 1X2, KSYM,EMACH, ALPHA, CA,SA,PKaCH2 

3  ,AL,UT1M,CB,o  3  ,  N  3  »  P  C  ,  Iu,JG 
COMMON/ D/  SLJPT, TRAIL, SCAL 
C'jMMON/F  /  XR,  YR,  KS,  XS  (  500  )  ,  YS  (  500 
CUMMGN/G/  T I T LE ( 2 C ) , 1 PLO T 
CUMMuN/K/  10, II, 12, I3,Jl,J2,o3 
i E  ( IPLUT )  1, II, .01 

1  CALL  PLUTSBL( 50C0,22HI-Chung  CHANG 


1G91U4W ) 
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i.  A  L  L  P  L  U  T  (  2  .  -  ,  2  .  J  ,  -  3  ) 

CALL.  SYi-1CwL(-?.L,-i.3.J,.0i'  ,3,0. »-l) 

^  A  L  L  SYMjjL.  L(c»t»  —  1.5  0,.j7»3,0.»  —  1) 
riYC  JOE  (  80,  12,  R  >  F  ITLc 
Rl,ROAT  <  2  0  A  4  ) 

CALL  lYMduL(^.>".i;il‘i»r'»L.i*‘0) 

L'iZ  Jl.E  (  35,  14,  P  )  \H,NY 

FORMA  r  (  2  4HNl  A*  F  I  E  L  L'  GRID  iYSTtN  ,  14, 3H  X 
Call  $  y  m  e  lj  l  u  .  >  - .  7  s , .  i  ,  o . ,  3  s ) 

CALL  PLOT (1. 73,4. L»-3) 

M  t  3  M 

al=  X  P  /  S  C  A  L 
YG  =  Yf/iCAL 
Uj  13  1=  I J,  I  3 
1l  13  J  *  J  1  • J  3 

x  M  E  S  M  I  ,  j  )  *  X 0  ♦  . S*( AO(  I  ) **2  - ( BC ( J  ) 

YMESHt  I,  J  )  =  YG  ♦  AC(l)MdOlJ)  ♦S3(I)) 


x  M  E  S  t  •  ( I , J  )  *  X 0  ♦  . 5* ( AO(  I  ) **2  - ( BC ( 
YMESHt  I,  J  )  =  YG  +  AC  (  1  )  M  80  (  J  )  +SOII 
i1  PA  ft  3  THE  GF'I  l'  CURVES  AkjSjND  AIRFOIL 
XP  A  X  *  X  M  E  b  H  ( 1X1,3) 

X  M  I  N  =  X  i'I  A  X 
L  0  2  2  i  =  1X1,  1X2 


♦  SO (  I  )  ) **2 ) 


XP  A  X  *  X  M  E  b  M  (  1X1,3) 

x  I  n  =  x  i'I  a  x 

[ C  2  2  i =  I  X  1 ,  I  X  2 

X  M  A  X  =  A  *1  A  X  1  (  X  N  E  S  H  (  I  ,  2  )  ,  X  ,M  A  X  ) 

X  P  I  4  *  AM  IM  (  X  MEbH  <  I,  3  J  >  X,1  IN  ) 

SC  ALE =  1 . /  ( xr AX-X  MI N) 

l  32  J*  J  x ,  J  3 
<P  -  3 

jL  32  1=  10,13 
xP=  SCALE* ( X  M  t  S  H (  I  , J )  -  X  M  I  N  ) 

YP=  SCALE*(  Y  M  E  ,i  H  (  I  ,  J  )-  Y M  E  $ h  <  II  ,  3  )  ) 

Ii-  C  XP.  LT  .-3.7b.  OR  .  XP.GT.4. 7t>.CR  .  YP.LT  .-4.S.UR.  YP  .GT  .4  .S)  GO  TO  33 
CALL  PLOT ( XP, YP, KP ) 

K  P  -  l 

Gu  Til  32 

KP  =3 

CENT  INUE 

OkARS  THE  GRIG  CURVE  b  RAUlATINC  FkOM  AIRFOIL 

UL  42  I*  I u ,  I  3 

K  P  *  3 

Uti  42  J=  J  1,  J  3 

XP*  SCALE*  (XMESH( I, J  J-XMIN ) 

YP*  SCALE  *  (Y,viEjH(  I,  J  )-YME  SH< 10, 3 )  ) 

IHXP.LT.-3.75.LP.XP.or.4.75.0P.YP.LT.-4.5.0R.YP.GT,4.5)  GO  TO  43 
Zt LI  PLOT( XP, YP,KP ) 

K  p  *  2 

GO  rc  42 
KP  =3 

CUNT  1NUE 

CALL  P  L □ T ( -1. 7S,-4.S,-3 ) 

CALL  SYMbD  L(-2.C»-1.50,.07,3»0.»-1) 

CALL  SYMBuL ( G .b,-1.50, .07, 3,0., -1 ) 

CALL  PLOT (-2. 3,-2 .00,-3 ) 

CALL  FR APE ( 1 ) 

RETURN 

CALL  PLOT (  0  .  »  G  .  »  9  9  9  ) 


o  rj 
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►  t  T  l ) N 
t  N  D 


j  U  8  R  0  U  TI N  E  U  G  I  A  L  I 

C  UNSTEADY  TRANSONIC  PLTtNllAL  FLOW  EQUATION  IN  G  U  A  S  ILINtAR  FORM 

C  rtITH  FIKSI  O-'CFt  K  A  0 1 A  T  ION  BuUMjAkY  CONDITIONS  IN  MOVING 

SHEAkED  P  A  k  A  d  0  L  1  0  coordinate?  are  sjvlel  by  an  alternating 
DIRECTION  IMPLICIf  SChcML  R  I  T  H  Y-SwEEP  FIRiT 

COMMON  /  A/  GM<132»3t>>»Gll32,3o),GNll3Z,  36),50<132)>Sl(132),S2(lJ<r) 

1  ,Au(13  2),AI(xi2)*AZ(13?)»A3(132)^oC(3t>)»Bl(3s)»P2(At) 

2  , 33<3t),NX,NY,Ixl,lX2,<SYM,FMACH,ALPHA,CA,SA,FMACH2 

3  >AL>L‘TIM»C3>jB#NS»PC»IG»JG 
GUMMuN/H/  DX,OY,gWDXa>DYY,1,TT,uXY,DXT,DYT,TSR 

COMMON/ J /  RAT ,PI,ALS>AlT,ALTT,AKPIA»FREQRA,FASAGA,FMACN5,FMACHT 

1  ,AtMPLM>FRFCRM,fASAGN»CETAS»CETAT>CETATT»AMPLC,FF:ECRC>FASAGC,CETA 

2  , FREGR, I P3UR E 

C  OMfILN/K  /  ID,  Il>  I2»  13.  J1»J2>J3 
COMMON/ WAKE/  MT»wG(i32) 
u  1 M  E  N  S I  ON  C ( I  3  2  )  »  F  (  1  3  2  )  ,  f ( I  3  2  ) 

COMPLEX  U 
DO  T=  l./DT 
UD  X  X  =  I./OXX 
DD  Y  Y -  I./DYY 
NS  *  0 

A  A  0  =  1. 

R  G  =  0  . 

IG  =0 

j  G  -  0 

C  * ** *  * 

C  Y-SwEEP 

C  ***** 

I M  =  10  -1 

I  MM  *  10-2 
C  (  IM ) =  0  . 

C  (  I  M  M  )  =  0  . 

E  <  I M  )  =  0  . 

I  (  IMM  )  =  0  . 

F(  I M )  =  0 . 

F  (  I  M  N  )  *  0  • 

C  OP  P L  R  BOON  JAR  Y 

J  =  J  3 
1=  IC 

ANG«PI*. 73 
Y*5J(I)+30(J) 

X*  AO (  I  ) 

HH«  X  *  X  ♦  Y+  Y 
DHH  =  l./hH 

X  T  =  -,5*Y*(  ALT+CLT  AT  )  Dri  M  ♦  (  C  A  *  X  +  S  A  *  Y  ) 

Y  T  *  .  b* X*  (  AL T +C L  T A  T  )  -DHU* (CA+Y-SA*X  ) 
n=  S  JR  T  (  HH ) 

CHx  l./H 


h  1  * 

( G  (  1*1, 

J  )  ~ij  (  I  f  j  )  )*2. 

,>  J  = 

(  J  (  I  t  J  ) 

-G (  I , J-l  >  ) *2  . 

L*  X 

3 

Al(l)*  G  I  —A  1  (  I  )  *t  1  (  o  )  ♦ 

Or 

U  =  : 

V  - 

x  *  o  h 

j  Y  *  DH 

B 1 ( J  )  *  GJ 

j  w  :  u  ^  u  +  V  *  v 

1 1'  i  1  N  =  <T*jH  +  Y  I  tjV 

h  T  =  GM ( I , J  )  ♦tuT  ♦  CHAT, 

AA*AA0-.2*0U-.4*F  IT 
AA*AMAXl  (  A  A  >  .  00C1  ) 

A-SQdT(AA) 

»A3CMPLX<CUS{ANb)>$IN(ANG))*CKPlX(A,C.) 

U=  J  ♦  R  E  A  L  (  J  A  )  +h  *  x  T 
V*  V  +  AIMAG(WA)  ♦  H  *  Y  T 
A  V  3  Y-U*  SI  (  I  ) 

TGI*  G  I 
T  G  J  *  G  J 

K/1I  =  2  .*  (  GM  (  I  +  1 ,  J  )  -  Grt  (  I »  J  )  ) 

T  C  M  J  =  2  .  *  (  GK(  I ,  J  ) -GM  I,  J-l )  ) 

Yl=  -  G  M  (  I  »  J  )  +  CT*(U*TGMI*Al(l)+AV*TGMJ*dl(J))*DH 
1  -2 .  *  0  T  * ( 0  *  T  G  I  *  A  1 ( I ) +  A  V  *  T  G  J  *  d  1 ( J  )  )  *  D  H 

A  I  3  C  • 

Cl3  G  • 
l  I  *  C  . 

C  I  =  0  T*0H*U*2 . *A1  (  I  ) 

Ai*  l.-CI 
GAMA*  01 

P  F  0  A  *  o  I  —  C (  1-2 )  *  G  A  M  A 

ALFA*  l./( AI-BEDA*C(  I-i )-GANA*f  (  1-2)  ) 

C  (  I  )  3  (  C  I-bt  0  A*E  (  I-l  )  )  *aLF  A 
E (  I  )  *  E I*AIFA 

f  (  I  )  s  (  YI-BEE)A*F  (  I  —  1  )  -  G  A  M  A  *  F  (  1-2  )  )  *  A  l  P  A 
-  ’  ^  1  1=  1 1  >  1 2 
AG  G*  .5* PI 
Y  3  S  0  (  I)  +  B  G  (  J  ) 

X*  AO ( I ) 

HH*  X*X  +  Y  *  Y 
DHH=  l./HH 

XT*  -  .  5  *  Y  * (ALT  +  CE  TAT  )  +  OhH*<CA*X  *  SA*Y) 

YT*  .S*X*  ULT*CETAT)  -JliHt  (  C  A*Y-S  A*X  ) 

H*3URT(HH) 

DH3  I . /H 

G  i  3  G ( I+1,J ) - G ( I-l,  J  ) 

GJ3  2 .  *  (  G  ( I»J )-G( I, J-l)  ) 

T  b  J  3  G  J 

T  G 1 J  =  2  .  *  (  Gfl  (  I,  J  )  -GM  (  I  ,  J  -1  )  ) 

G*  =  Aim*  G 1  -SI  (  I  )  *B1  (  J  )  *  GJ 

GY  3  Bl< J  )*  GJ 

U  3  G  X  *  D  H 
V3  GY* DM 
-  j  *  ’J  *  IJ  ♦  7  *  V 

CHAIN3  X  I  *  u  X  ♦  Y [ *G Y 
FIT3  GM (  1  , j )  +0DT  ♦  CHAIN 


AA*  4AJ-.  ?*QQ-  . A*F I T 
~A  = AHAX1  ( A  A  * . 0  C  0  1  ) 

A  *  S  -  «  T  (  A  A  ) 

»A  =  CM.KL*(CJSlANo)»5IMAN&))*CMPLX(A,C.) 

-  =  J  ♦  ^  F  A  L  l  w  A  )  +H  *X  T 

-  «  ♦  A  I  M  A  ri  (  w  A  )  +  H  *  Y  r 

-  J  *  -  1  (  1  ) 

4  k  ^  •  L  T  *  0  •  )  .7  T  l,  2 

1  ;  =  .’«*(  j 1 1» j i-j( i-i> j i ) 

i  " :  =  i .  ♦  (  .h  ( i ,  j )-(,!« ( i-x ,  j ) , 

*  r  -  i  .*A1(1)*!J[*!)H*U 

'  1  a  =  4  I  "  J  i 

v  *  c 

*  • 

f,.  3 

I'ji5!  .*(  j(  I  ♦  1  *  J  )  -  3  (  I  <  j  )  ) 

1 1'  1  =  ?  ,  *  (  j  '■’i  (  I  +  i  t  j  )  —  u  (  J ,  j  j  ) 

-  -  =  t  . *  A1  (  I  ) *  jT*Om*u 

a:=  i.-ci 

'•)  A  =  V  • 

3  VI-  -  (  i  ,  j  )  ♦  ^  (  U  ♦  T  j,mI*A1(  I  )  +  A'/*rG1J*31(j  )  )  ♦  3  m 

3  -?.*M  Mt*TO  I  *  A  i  (  1  )  ♦AV*TGJ*bl  (  J  )  )*CH 

01=  3. 

4-  »  -  j 
»-  *  • 

OA1A=  01 

3  t  0  A  -  }  1  -  C  (  I  -  1  IH-AMt 

Al“A=  i./(Al-3ELA*Cl  l~i  )  -  j  A  H  A  *  E  (1-,:)  ) 

C;i)=  (CI-CtOA*L ( 1-1 ) )  *  A  L  F  A 
L  (  I  )  =  t  1  *  A  L  F  A 

y  '  -)=lYI-rhDA*f  (l-l)-GAflA*HI-t)  )  *  A  L  F  A 
1  CONTINUE 
1=  13 

AN  7',=  .  2  b  *  P  I 

Y=3u(  I  )  4-BC  (  J  ) 

X  =  AO  (  I  ) 
hh=  x  *  x  +  y  <-  y 
ohh=  i./hh 

*F  =  -«5*Y*(ALT+CETAT)  +  DHH*(CA*X  +  bA*Y) 

VT  =  •  3  +  XMALT  +  CCTM)  “DHh*  (CA^Y-SA^X  ) 

H  =  S  3  0  T (HH) 

Oh  =  1 . /H 

01=  (o(I#J)— G(I~1#J))+^, 

Oj=  ( G (  I  »  J  )  — G(I>J— 1))*2. 

Gx  *  Al(l)+  G I  -Si ( I  )  *t 1 ( J  )  *  GJ 

B  1  (  J  )  *  G  J 

U=  G  X  *  OH 

V  =  G  Y  *  OH 

33  =  L,  *  U  ♦  V  *  V 

C  H  A  1 N  =  X  T  *  G  X  ♦  Y1*GY 

FIT*  CM ( i *  J  )  *  00  r  +  CHAIN 

AA*AA0-.2*G0-.C*rIT 

A  A  =  AMAX  1  ( AA  ,  . 0G1  ) 

A  -  SCr^T(AA) 

W  A  =  C  P  L  X  (  C  7  j  S  (  A  No  )  ,  s  1  N  (  A  n  ^  )  )  »  c  M  r  L  X  (  A  >  C  •  ) 

-1=  U+  »F  AL  (  WA  )  +  H  *  X  T 


L  8  5 


t 


i 

E 


^  f  A  1 -  A u (  « A )  4  H*Y[ 

v  *  V-ll*  bl  l  I  ) 

r  v,  I  =  zi 

1  \J  J  -  l.  J 

T '  ■•'  i=  8  .*(;,'!(  i ,  j  )-u.M(  i-i ,  j )  ) 

[  '  -1  r  : .  ♦  (  j  w  (  i  >  j  )  -  ,  •.  <  i ,  j  - 1  j ) 

*  - s  -  v  n  ,  j )  4  :  r  v  <  i  +av 

:  -  E  .  *  C  r  *  ( L  *  T  ,  i  *  u  (  ;  ;  ,  a  *  7  0  j  * 

Cl-  .  . 

... 

1  =  - :  t  *dh *u*  1 .  * /- 1  (  1  > 

A  I  =  1.-81 
vj  A  >i  A  =  u  I 

:')A  _i  I - c  (  I-?  )  *0a  v 
A  L  f-  A  =  1.  /  (AI  —  ,JELA*C  (  I  —  i  )  -  j  A  Yl  A  <■  r  (  I  -  Z  )  ) 

L  ■  e  )  ■  C^..  ’lE^A^LlI  —  I))xAi_hA 

*■<!)=  t  I  *  A  l  F  A 

F  (  i  )  -  (  Y  I  -  I  r  i'i  *(•  (  i  —  1  )  -  A ;A  A  *  >  (1-1  1  )  *  A  L  F  A 

^  O  “  —  • 

C  C  v?  -  0  • 

Uu  *♦  <  =  I  G  %  I  j 

I  =  I  i  ♦  I  0  - 

uO5  V*  o 

-  'J  -  F  (  I  )  -  C  (  i  )  *i.  w-1-  (  I  )  *  C  C  !• 

1  '  .  r 

^  v,  -J  -  L/  O 

A  0  ’ .  (  I  »  J  )  =  (,  j 

^  1  =  J  -  1 

L  c  F  T  8  ^  i )  ’ . ; .  A  »  Y 

I  -  r  . 

1  - 

iCj  -  F  1 

y  *  !>  j  (  i )  ♦  t1 :  ( j  i 

■  =  A  :  (  I  ) 

'••  =  >  *  <  v  f  *  Y 

=  1  .  /  —  t  • 


<  T 

-  — .  b  a  r  ♦  ( 

A 

L  T  ♦  Ct 

TAT)  + 

J'lh*  (  c  A  *  X 

♦  S  A  ♦  Y  ) 

r  t 

=  .3*X*(AlT4Ctl 

A  r )  -DM 

H  *  t  C  A 

*  Y  -  s  A 

♦X  ) 

r*  C 

1  jF  1  (  Hit  ) 

DM 

-  1  .  /  H 

ul 

2  (  G  (  I  +  i  » 

J 

)  -  u  (  I 

*  J  )  ) . 

oJ 

*  G  (  I  »  J  ♦  1  ) 

- 

G  (  I  >  J 

-1  ) 

c  >. 

- 

A  1  (  I  ) 

*  GI 

5l  (  I) 

♦  fc  1  (  J 

)  *  G  J 

r 

- 

8  1  (  J 

)  *  VJ  J 

u  * 

j  X  ♦  (j  -H 

V  ~ 

G  Y  *  0  H 

•V  ‘J 

=  U*U  +  V  * V 

O 

a  i  n  *  x  r  *  • , 

X 

+  Y  I 

♦GY 

F  I  T  =  GM  (  I  ,  J 

) 

*  jG  T 

*  Dili 

1 J 

U  A 

-  A  AO-  .  ?  *  UG 

-  . 

1  T 

A  A 

-  A  v  A  X  1  (  A  A 

9 

.  0"C  1 

) 

A  * 

;  j  -  T  (  A  A  ) 

V*  A  ■ 

=  L  v  F>  L  x  (  C  i. 

(  A  i  A  ■  ) 

f  S  i  M  A  G 

iv  F  L  X  (  , 

A  *  1  .  ! 

u  5 

G  4  *  f  A  1.  (  „ 

A 

)  4  h 

*  x  1 

V  = 

V  ♦  a  I  A 

(  *  A  ) 

4  1 1  ♦  y  r 

j  1  ( j  )  ;  *i> 
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•IV  =  V  -L  +  61I1) 

Tul=  ul 
■GMI= 

xt  (  AV.LT.O.  )  Cl  TG  6 
Tg  J  -  ?. * (G ( 1,  J ) -G ( I . J-l  )  ) 

U:  1  =  Z  .  *  (  6M  (  I  ,  J  )  -G,s;  (  I  ,  J  -1  )  ) 
uC  TC  7 

t  ToJ=2.*(G(I>J+])-G(l>J)  ) 

K-YJ*  2  .  *  (  G  M  (  I  t  J  +  l  )-GM  (  If  J  )  ) 

7  fi=  -  G  Y  (  I  >  J  )  +  L;T<!(u<'TbiviI^Al(I)+AV<:rG!iJ*:Jl(J))*DH 
1  -  2  .  *  C  T  *  (  U  *  T  G  I  *  A 1  l  i)+AV*TGJ*f*l(J))*Cii 

r :  =  c . 
l  :  =  o . 
t:  -  c . 

C I =  PT*DH*J*l  .  * Ai  (  i  ) 

A  J  -  1  .  ~  C  I 

GAYA1  D  I 

at  jA  =  8I-L  (  I-  2  )  *  C  A  YA 

ALFA*  1  .  /  (  A  I- at  L  A  *C  (  I  -1  )  -  G  A  Y  A  E  (  1-2  )  ) 

C  (  1  )  =  (Ci-bLwA«f  (  i-i)  )  *  At.  f- A 

t  l  1  )  =  fc  I  *  A  l  F  A 

F  (  I  )  -  (  Y  I  -  e  E  J  A  *  f  (  I  -  1  AM  A*  F  (  1-2  )  )  *  AL  F  A 

If,;  r«  I  38 
GC  d  I  -  11,12 

(-*  =  !. +  Sl(i)**  8 
Y-3C(I)+P0(J) 
x  =  A  0  (  I  > 
i-iMr  x  * y  ♦  y  *  Y 

fhH  =  1 .  / HU 

Xi-  -.'*YMAIT  +  CLTAT)  +  DHii*{CA*x  +  SA*Y) 

YT=  .  5*X*(  AiT  +  C  t  T  AT  )  -l,uiHMCA*Y-jA<‘X  ) 

C>»  Y  *  Y  -  X  *  X 
C  Y  =  2  .  *  X  *  Y 

X  T  x  =  (CA  +  CX-CY*1>A  ) * 

X  T  Y  =  -.5*  (ALT  +  C1  TAT  (  ;A«CXf-CA*CY) 

Y  T  X-  -XT  Y 
YT v=  X  T  X 

C  x  =  x**3-3.*x*v«y 

C  »  =  3 . *X  *X  * Y- Y v*  J 
b  X  =  2.*SA*CA 
rt  Y  *  C  A*  C  A-  A*  S  A 

xTT  =  -.G*Y*(AlTT  +  ;f.TATT)-.2-,<‘XMAlT+Ci:TAT)**2 
1  +  t-  Y  ACHT  *:JHFI+  (  X  *C  J  +  Y  *:>  d  )  -  AL  T*l  I.H*  (  X  +  S  A-Y*C  A  )  -  L!HH**3*  (  C  X*  6  Y+  B  X*  C  Y  ) 

ti  r  =  .V*X«(ALTT+CFTATI  )-.2‘j*Y*vALT+C£TAT)**2 
1  ♦bf'ACHT*  uHh  *  (  X*  S  b  -  Y  *  C  tl  )  +  AIT*|jI!H*(  X  ♦  C  A  ♦  Y  +  SA  )  ♦  D  H  H  *  *  3*  (  bY*C  Y  -  ti  X  *  C  X  ) 
ti  =  S  Q  F  T  (  H  H  )  < 

Oh*  l./M 

Ol  =  0(  I  ♦  1  ,  L  )-b  (  1-1  >  J  ) 

GNI  *  GY  (  I  ♦  l ,  j  )-GY  <  1-1,  J  ) 

G J  *  G ( I »  J  + 1  )  - G (  I,o-l ) 
ciE  J*  GM(  I#  J  +  l  )-GM  I  ,  J-l  ) 

CX  *  A 1 (  I  ) *  G I  -Sl(i)*fi(j)*  GJ 

C  Y  =  rt  1  (  J  )  *  GJ 

1  -  o X  *0H 
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V-  G  Y*DH 
A  Li  *  l  +  V  *  S  1  (  I  ) 

AC  *  V  -b*Sl  ( I  ) 

UR  *  AT*H  +  u 
V k*  YT*H  +  V 
A  VR  =  VR— UR*S1 C I ) 

ULR  =  UR*UF 
VVP*  VR*  V  R 
GOP*  UUR  +  VVR 
S  =  1. 

IF  (  L'k.LT.O.  )  S*  -1 
T«l. 

IF (AVK.LT .0. )  T  *  -1. 

uu*u*u 

UV  *  U*  V 
VC* V*V 
CU*UU+VV 

Chain*  xT*sx  *  yt*gy 
FIT*  G.1(1*J  )  *DDT  ♦  CHAIN 
AA*  AA0-.2*G(J-.4*FIT 
AA*AMAX1  (  A  A  j  .  JC01  > 

A3  *  A  1 ( I )*B1 ( J  ) 

GlI«lG(I+l#J)-2«*Gt  I#  J )  +G  (  I -1 >  J  ) )  *ODX  X  ♦  A  3 (  I » ♦ G  I 
GI J>G( I  +  l> J  +  l >-G< I  +  l# J-l )-blI-l# J  +  1)*G(  1-1# J-l > 

GJJ*  (G(IjJ+l)— 2«*G(  1 j  J ) +G (  I»J-1  )  )  *  C  D  Y  Y  +  b  3 ( J ) *G J 
Gni  I- (GUI  I  +  l>  J)-2.*GM  It  J)*GM1-1,J>  )*00XX  +  A3(I)*GMI 
GMI J*GM< I  +  l, J  +  l )-GK(I*l# J-1)-GF ( 1-1 p J ♦ 1 ) +GM ( 1-1  * J-l  ) 
GKJJ*  (GM(I  ,  J+l)-2  ,*GM(  i*J  )  ♦  GN  (I  »  J-l)  >*DDYY  ♦  B3(J)*GMJ 
C  ROTATED  COORDINATES  TERM? 

CX  =  X  TT+  2.*(U*XTX+  V*XTY)*DH 
CY*  YTT  +  2  •  * ( U*  Y  T  X  ♦  V*YTY)*bH 
AX*  A11IIKX 
AY*  B  1  (  J  )  ■MCY-CX+51  (  1)  ) 

W R *  A X*G  I  +  AY*Gj 

R  =  CO  *(b*X+V*Y)*DH  -< AA-UUR >*S2( I )*GY  — HH*wR 
IF(wCR.GE.AA)  GC  TO  9 
C  CENTRAL  DIFFERENCING 

A X  X *  ( AA-UUP )  *  A2 (  I  ) 

AX  Y  *  —2  •♦ABM  AA*S1(I>  ♦  UR*  A  VP  ) 

AY  Y  *  P  2  C  J  )  *< AA*FX-Avk* AVR ) 

YR  *  P  ♦  A  X  X*G  1 1  ♦  A  X  Y  *o I J  +  A  YY*GJ J 
A  X  Y*  -2.*Uk*AVR*AB 

YMR*AXX*GMII  ♦  A  x  Y  *  G  M  J  ♦  A  Y  Y  *G  M  J  J 
Bb*  .5*DTT*OHH*A2(I ) *( UUR-AA ) 

DI*  C. 

31*  BB*(D0XX-A3(I)  ) 

Al*  1 .-2 .*68*DDXX 
Cl-  38*  (DC)XX  +  A3(  I  )  > 

El*  0. 

GO  TC  10 

C  TYPE  DEPENDENT  DIFFERENCE G 

9  NS  «  NS  +1 

K  *  S 

1M  *  I  -K 
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1  MM  *  I  (1  -K 

LXT 

JM*  J-l 
JNrt*  JM-L 

AuR*  UR ♦  VR*S 1 ( I ) 

AQ *  AA/QOR 
b  X  X  =  WR*A2<  I  ) 

6XY*  -2. *Ab*VR*AUP 
6  Y  Y  *  AUR*  AUR*  B2 ( J  ) 

GNN*BXX*GI I*BXY*GIJ*8YY*GJJ 
GMNN*  BXX*GMI  I4BYY*GF J J 
Gl J ^  * G (  It J )-G ( IM>  o ) -G ( 1 # jM  )+G ( IM» JM  ) 
gMIJM*  GM  (  I  >  J  )  -  6  M  (  IM>J  )  —  GM  C I  »  JM  )  4GM  (  IM,  J M  ) 

IF  C  JMN.GT.J3)  Gu  TD  11 

GJJM*  (G<  l,  J  )-2.*G(  I,  J.1>*G<  I.JMM)  )*OOYY  ♦  B3(J)*GJ 
GMJJM*<  GM(I>J)-2.*Gi'HI#J.'1)4GM(I»JMM))*OOYY  4  B3(J)*GMJ 

go  ra  12 

11  CJJM*GJJ 

GM J JM*  GMJ  J 

12  I  F  (  I  MM. LT. IC .UK. IMM.GT.  13  )  GG  Tj  13 

GIIM*(GC  I»  J)-2.*G(  IM,J  )+G(IMM,J  )  )*DOXX  -*•  A  3  ( I  >  *  G I 

CM  1 1  M*  (GM(  i»  J)-2.*GM(IM,J  )*GM(  IMM,  J  )  )*OOXX  4-  A3<I)*GMI 

GG  TC  14 

13  GI1M*  Gil 
GMIIM*  GM1I 

14  A  X  X  *  UUR  *  A  2 ( I  ) 

A X Y=  6.  *S*T*UR*AVR*Aii 
AY Y *  AVR*AYR*B2 ( J  ) 

GSS* AXX*G1 IM4 AXY*oIjM4AYY*GJjM 
GMS3*  AXX*GMI I M+AYY  *G  M J  J  M 
Yk  *  (AQ  -1 .  ) * j  S  3  +AC*GNN  +R 

YMR* AQ* ( GMSS+GMNN ) 

GMSS  *  A  X  X  *  G  M  I  I  M  4  A  X  Y  *  G  M  I  J  M  4  A  Y  Y  *  G  M  J  J  M 

YMR*  YMR  -GMSS 

2  is*  .6*DTT*DhH*UUF*( l.-Au)*A?(i  J 
CC*  5*01 T*DHH*AG*VVR*A2( 1 ) 

BBCC  =  BB4CC 

IF (  UR.LT.O. )  Gu  T G  16 
IF (  I . £Q  .  1 1 )  GU  TO  16 
01*  8  B  *  D  i)  X  X 

BI*  DOXX*  (CC-?.*;3fc)  -A3(I)*bbCC 
AI*  1.  4DCXX*( 3B-?.*CC ) 

Cl*  GC*DOXX  4  A3 (  I  ) *6BCC 
El*  0. 

GG  TO  10 

16  1 F  <  I.EU.I2)  G  G  TO  16 
01*  C. 

81*  CC*L)0XX-A3  ( I  )  *B6CC 
AI*  1 .4DDXX*< BB-2.*CC  ) 

Cl*  00XX*(CC-2.*13B)  4  A3  (  I  )  *L  BC  C 
FI*  b  n.  *  D  D  X  X 
GU  TU  10 
16  01*  0. 

31*  B3CC* (00XX-A3(  I  )  ) 
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41*  1.  -2 • *  DD  XX*  B  BC  C 
Cl*  bBCC* ( DDX  X* A3 (  I )  ) 

£1*  0. 

AtWECTION  TERMS 
UPWIND  DIFFERENCING 

10  vr»AV«*2.»Bl<J)*CGM(I»J  )-GK  ) 

IF (AVP.LT.O. )  YY*AV»*31 ( J)*(GH( I» J+1)-GM(I#J )  )*2. 
dd*UF  *DT*Lh*2  .  *  A  1  ( I  ) 

IFIUR.LT.O. )  GO  TC  18 

YY*  YY  +  U**2.* Al(I)* (CMC  I, J )-GM( 1-1, J ) ) 

'jl  *  cI-BB 
41*  AI+33 
GO  TC  19 

Id  YY*  YY*UR*2.* All  1)* (GH<  I  +  i» J)-GM(  1» J  )  ) 

Cl*  C1  +  8B 
A  I  *  A  I -B  8 

19  Y I  *  GM( I, j ) ♦ 0  T  T ♦ < YR-. 5*YMR ) *DHH  -DT*Y Y*DH 
GAMA*  D I 

L:  E  0  A*  d  I  -C  (  I-?)*GAMA 

ALFA*  1 » / (a1-dELA*C( l-i)-GAMA*t  11-2)  ) 
cm*  (C  I-ttEDA*L  ( 1-1  )  )*ALF A 
t ( I)»  £  I  *  AL  F  A 

F(  1)  *(YI-BEDA+F(  1-1  ) -o AM  A*F  l  1—2  )  ) *  AL  F  A 
8  CONTINUE 

RIGHT  BOUND Ak  Y 
I*  13 
ANG*  0. 

Y*Si)l  I )  ♦  B 0  (  J  ) 

X*  AO (  1  ) 

HH  *  X*X  ♦  Y  +  Y 
DMH*  l./HH 

XT*  -.i>*Y*(ALT  +  CFTAT)  ♦  UHH* ( C  A*  X  ♦  SA*Y> 

YT  «  .S*X* C  AL  T ♦CE 1  AT)  -DHH* (CA*Y-SA*X > 
h*S  QRT ( Hh ) 

CH*  l./H 

GI*  <G<I>J >-G< I-1»J ) >*2. 

GJ*G(  I»  J ♦ 1 » -G ( I #  J  — 1  ) 

GX  *  Aid)*  Gl  -Sl(I)*ei(J)*  GJ 

GY  *  3 1 ( J ) *  CJ 

l'»  GX *DH 

V*  GY*DH 

Cg«  U*U*V*V 

CHAIN*  X  T*o  A  ♦  YT*GY 

FIT*  GN<I#JJ  *00T  ♦  CH4IN 

AA«AA0-.2*C0-.A*F  IT 

AA-ANAXllAAt.OOGl) 

A*  SORT  I  A A ) 

WA*CMPLX(C0S(ANG)»S1NUNG))*CMPLX(A,0.» 

U*  U*RE AL  l  W A  )  ♦H*XT 
\»*  V  ♦  A I  MAG  (  WA )  ♦  H*YT 
AV  •  V  -U*S1(I) 

TGI*  GI 

TGMI*  2.* (GM( I, J ) -G  M  C 1-1# J  )> 

If l  AV.LT.O.)  GO  TO  20 
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TGJ*  2,M6(IiJ)-6(I»J-ll) 

TGMJ  *  2.*  (GM(  It  J  )-GM<  l,  J-l )  ) 

GO  TC  21 

20  TGJ*2.*<G(I,J+1)-G(I,J)) 

TGMJ*  2.*  <GM{  I#  J+l  )-GM  (  I»  J  )  > 

21  Y I  *  -G»llhJ)  ♦  0T*(U*TGMI*Al(I)4-AV*TGMJ*til  (J  )  >*DH 

1  -2 • *DT  *(U*TGI*A1 ( I) +AV*TGJ*B1 (J ) )*DH 

01*  0. 
fcl*  0. 

Cl*  0. 

B 1  *  -DT*DH*U*2.*Al<  I) 

A I  *  1.-B1 
GAMA*  D I 

BE  0  A*  B I-C ( 1  —  2 ) *GA  MA 

ALFA*  1. / (AI-3E0A*C( I -1 ) -GAM A*E  ( 1-2)  I 
C ( I  )  *  (Ci-BEDA*E( 1-1) ) * ALF A 
F ( I ) *  E I* ALF  A 

F  ( I)  *(  YI-t>EOA*F(  1-1  )-GAMA*f  ( 1-2  )  )+ALFA 
Co*  C  • 

CCG*  0. 

00  22  K*  10*13 
I*  I3+I0-K 
OG*  CG 

CG*  F ( I )-C ( I >*CG-fc ( 1  )*CCG 

CCG*  DG 

22  GM  1#  J)=  CG 

IFt  J.GT.3 )  GO  TO  5 

***** 

X-SwtEP 
***** 
cm*  o. 

C ( 2 ) =  0. 

E  ( 1 )  =  0. 

t  (  2  )  *  0. 

F ( 1 ) *  0. 

F  (  2  )  *  0. 

LEFT  BOUNDARY 
I*  10 

DO  23  J*  J 1 >  J  3 
I F  (  J.FQ.J1  )  GO  TO  2<. 
i F  (  J.EQ.J3)  GO  TO  25 
ANG*  PI 

G J  *  G(I» J  +  1J-G( If J-l I 
GO  TC  26 
2A  ANG*  1 • 2 5*  P  I 

GJ  *  G<  It  J  +  D-G<  It  J-l  ) 

GO  TC  26 
25  ANG*  . 7 5* P  I 

CJ*  2  .  *  (  o  <  I  #  J )-G( I *  J  —  1 7  ) 

?fc  Y * 60  (  I  ) ♦  BO  (  J  ) 

X*  AG ( I ) 

MH*  X  *X  ♦  Y*Y 
UHH  *  l./Htl 

XT*  -,5*Y* ( AL T*CETAT)  ♦  UHh*(CA*X  ♦  SA*Y) 
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YT*  .S*X*(Alf +CETAT)  -OHM* ( C A* Y -SA* X ) 
ills*  AO  ( I  )*AO(  I  )  +  Y*Y 
H= i OPT ( HH ) 

DH*  l./H 

01=  (G(I+1»J)-G(I»J)}*2. 

OX  =  Aid)*  G  1  -SI  (  I )  *61  (  J  )*  GJ 

OY  *  B 1 ( J  )  *  GJ 

U=  GX*DH 

Vs  GY*DH 

GC=U*U*y/*V 

Chain*  xt*gx  h  yi*gy 
r  1  T  =  GK(I>J)  *GOT  +  CHAIN 
AA*AA0-.2*GG-. 4*F I T 
AA=AMAX1(AA#.0001) 

A=$UPT(AA) 

»A*CKPLX(C3S(  ANC )>SIN( ANG) )*CNFLX(A,0.) 
.J*  U+PEALUA)  +H*XT 
V*  V  ♦  A  1  HAG ( m  A )  ♦  H  *YT 
AV*  V— U* S 1 (  I  ) 

IK  J.EG.Jl)  GU  TO  ?7 
IM  J.EQ.J3)  GU  TC  2  G 
IF (  AV.LT  .0. )  GU  TO  2  7 
25  SI*  -DT*DH*AV*2.*B1 ( J  ) 

AI*  l.-BI 
Cl*  C. 

GJ  TG  29 

27  Cl*  DT*0H«'AV*2.*ol(J  ) 

AI*  l.-CI 

a  i=  c . 

29  Y 1 =  GN<  1, J  ) 

01*  0. 

El*  G. 

CA'IA*  01 

3E0A*3I-C <  J - 2  )  *G AHA 

ALFA*  1 .  /  ( A  I- BE  D A*C ( J-l )-GAMA*E ( J-2  )  ) 
C(J)=  (CI-3E0A*E( J-l) ) *AIFA 
E  (  J  )  *  E  I  +  A  IF  A 

F (J )* (Yl-6EQA*F(J-1)-GAHA*F (J-2 )  ) *  AL  F  A 
23  CONTINUE 
C  C  o*  0  « 

CG*  0. 

DO  30  K *  J  1  *  J  3 
J*  J  3  ♦  J1  -K 
GG*  CG 

CG*  F(J)-C(J)*CG-E(J  )*CCG 
CCG*  OG 

30  GN(  l, J  )-  CG 
INTEFIO* 

uO  31  I*  1 1  >  I  2 
FX*  1.  ♦  S 1 ( I  )  **2 
L'j  3  2  J*  J  1 »  J  3 
I F  (  J.E0.J3)  GJ  KJ  33 
Y*  S0( I ) ♦B0( J ) 

X*  A 0 (  I  ) 


HH«  X*X  +  Y*  Y 
QHH*  l./HH 

XT*  -.5*Y* (ALT  +  CETAT  )  ♦  DHH*(CA*X  ♦  $A*Y) 
YT*  •  5*X* ( AL  T  *C  E  T  AT  )  -OHH* ( CA*Y-SA*X  ) 
H*SQRT(HH> 

OH*  l./H 

GI*G ( 1  +  1* J  )-G (  I -1  *  J ) 

GJ*G(  I »  J  +1  )-G ( I » J-l ) 

GX  *  Aid)*  G I  -SI  (I)*B1(J)*  GJ 

GY  «  B 1 ( J  )  *  GJ 

l'«  GX*OH 

V*  GY*OH 

AD*  U+V* S 1 < I > 

AV  *  V  -U*S1U) 

UR*  XT*H*  U 
VR*  YT*H  ♦  V 
A  V  R*  VR-UR*S 1 ( I ) 

UUR*  UR*UR 

V V R *  VR* VR 

QGR*  UUR  ♦  V  V  R 

QG*  U*U  +  V*V 

CHAIN*  X T*  GX  ♦  YT*GY 

FIT*  Gtf(I>J)  *DDT  ♦  CHAIN 

AA«AAO-.2*UG-. A*FIT 

AA*AMAXl(AA».OCCl) 

IF ( OQk. GE . AA )  Gf  TO  3A 

BB«  .5>*OTT*OHH*UVR*AVR-AA*FX)*B2(  J) 

DI*  0. 

BI*  bB*(D0YY-o3(J)) 

AI*  1.-2. *BB*  DDYY 
Cl*  PB* (DDYY  ♦  ( J  )  ) 

El*  0. 

GO  TO  36 
3 A  AG*  AA/QQR 

AUR*  UR*VR*S1 ( I ) 

BB*  .‘>*DTT*DHH*AVR*AVk*( l.-AG)*B2< J) 

CC*  -. 5*DTT*OHH*AC*AOR*AUR*B2 ( J ) 

o3CC*  BB*  CC 

IF  (  J.EG.A)  GC  TO  38 

I F (  J.F0.J2)  GC  TO  39 

IF ( AVR.LT.O. )  GL  TO  AO 

01*  BB*DDYY 

ol*  00 YY* ( CC- 2. *63)  -03(J)*BtCC 
AI*  1.  ♦  DDY  Y  * ( BB-2 . *CC ) 

CI«  CC*DDYY  *  63 ( J  )  *eBCC 
El*  C. 

GO  TO  36 
AO  DI*  0. 

dl*  COYY*CC  -B3( J  )*8BCC 
AI*  1.  ♦  DJYY  * ( BB-2 • *CC ) 

CI»  C0YY*(CC-2.*BB)*T>3(  J)*3BCC 
El*  BB*DDYY 
GO  TO  36 
38  DI*  0. 
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IHAVK.IT.O.)  GC>  TO  41 
EI«  C. 

»i  1*  68CC*<0DYY-B3(J)) 

AI»  1.  -2.*EBCC*JDYY 
ci«  bsccmcoyy  ♦  B3<j>> 

GO  TO  36 

41  31*  CC*OC YY  —  3  3  C  J  )  *  6  B  C  C 
AI»  1.  ♦  G0YY*(6cS-2.*CC  ) 

CI»  COY  Y* ( CC- 2«  *88 )  ♦  ii3(J)*8fc>CC 
t  i«  88*ooyy 
GC  TO  36 
39  EI«  0. 

IF ( AVR .LT.O. )  GU  TO  42 
01  *  B  B  *  0  0  Y  Y 

Bl>  DDY  Y*  (  CC-2 . *  B 3 )  -93<J)*t>6CC 
AI-  l.+DDYY*(8B-2.*CC> 

Cl-  l/3YY*CC  ♦  B3(J)*B3CC 
Gu  TC  3b 

42  01*  G. 

31*  63CC*  (DDYY-B3U  )  ) 

AI»  1 ,-2.*PBCC*L0YY 
Cl*  BBCC*(3DYY+B3(JJ  ) 

C  ADVECTION  TERMS 

36  &b«  DT*QH*4VR*2.*B1(J  ) 

IFtAVS.LT.O.)  GU  TO  43 
tll«  BI-BP 
Ala  A  I*  B6 

GU  TO  46 

43  Cl*  Cl  *Bb 
AI*  AI-B3 
GO  TO  46 

33  ANG»  .  5*P  1 
Y  ■  $3  d  )  ♦  BO  (  J  ) 

X»  AG ( 1  ) 

.-IH*  X*X  ♦  Y  * Y 
UHH •  l./HH 

XT*  - . b*  Y* ( AtT+CETAT )  ♦  DHH*KA*X  ♦  SA*Y> 
YT*  •  5*X* ( ALT  +  Ct  T  AT )  -DHH* ( C A *Y- $A*X  ) 
H*53RT(HH) 

CH*  l./H 

Gl*  G(in»J)-G(l-liJ) 

GJ«  £.* (G(I# J  )-G(  I# J-l)  ) 

GX  »  Aid)*  GI  -Sld)*Bim*  GJ 

GY  «  31 ( J ) *  GJ 

U«  G X *DH 

V*  GY*OH 

ui«U*U*V*V 

CHAIN*  XT*GX  ♦  YT*GY 
FIT-  GM ( I # J  )  *DDT  ♦  CHAIN 
A  A  *  A  A  0— «  2*GG-»4*FIT 
A  A  ■  AM  AX  1  (  A  A#  •  0001  ) 

A* SORT ( AA  ) 

«A»CMP1X(C0S(  ANG)  # $  I M ANG d *C MPl X < A, 0 .  ) 

U»  U*REAL(WA>  ♦H*XT 
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V*  V  ♦  AIMAG(WA)  +  H*  YT 
AV*  V-U*S1<I> 

48  B 1=  -DT*DH*AV*B1 ( J) *2. 

AI*  l.-BI 

Cl*  C. 

01*  0. 

El*  0. 

46  YI*  GN(I,J) 

I F (  J.EQ.3)  Y 1=  YI-BI*GM( 1,2)  -DI*GH(I»1) 
I F (  J.EG.4)  YI*  YI-0I*GM(I»2) 

GAMA*  0 1 

BEDA*BI-C ( J-2)*GAMA 

ALFA*  l./(AI-BECA*C< J-l)“GAMA*t (J-2) > 
C(J)=  (CI-BEDA*F(J-1)  ) * AL  F  A 
F ( J ) =  E  I*ALF  A 

F(J)*<YI-BEDA*rU-]>-GAMA*F<J-2)>*ALFA 
32  CONTINUE 
CCG*  0. 

CG*  0  • 

DO  49  Kx  J1,J3 
J*  J3+J1-K 

DG*  CG 

CG*  F ( J )-C < J) *CC—  t(J)*CCG 
CCG*  DG 

49  GN (  I, J) *  CG 
31  CONTINUE 

RIGHT  BOUNDARY 
I*  13 

DU  50  J*  J1,J3 
IF (  J.E0.J1)  GO  rc  SI 
I F  (  J.E3.J3)  G(J  TC  52 
ANG*  0. 

GJ*  G(I#J*1)-G(I#J-1) 

GO  TO  53 

51  ANG*  2  5*P I 

GJ*  G  ( I  #  J  ♦  1  )-G  (  It J-l) 

GU  TC  53 

52  ANG*  .25*PI 

GJ*  2.*(G(  I»J  )-G< I* J-l) ) 

53  Y«S0(I)+60(J) 

Y*SG( I )*80< J ) 

X*  AO (  I ) 

HH*  X*X  ♦  Y*Y 
UHH*  l./HH 

XT*  -«5*Y*{AlT+CETAT)  +  OHH*(CA*X  ♦  SA*Y) 
YT*  .5*X* (ALT+CETAT )  -OHH* (CA*Y-SA*X  ) 

H*  SGR  T ( HH } 

DH*  l./H 

GI*  2  •* ( G ( I # J  )~G (  I-1#J)  ) 

GX  «  Aid)*  GI  -S1(I)*B1(J>*  GJ 

GY  *  B 1  ( J  )  *  GJ 

0*  GX*OH 

V*  GY*DH 

00«U*U*V*V 


CHAIN*  X  T*  GX  ♦  YOGY 
F IT®  GM ( I »  J )  *DbT  +  CHAIN 
AA* AAO-. 2*UG- . 4*F  IT 
AA* AMAX 1 ( A A  > . 00C1  ) 

A*SORT( AA) 

v*A»CrtPLX  (COS(  ANG  )  >3IM  ANG)  )*  CMP  LX  (A#  0.  ) 
u=  U  +  S E A L ( W  A )  +H*XT 
V3  V  ♦  AIMAG ( WA )  +  H*YT 
AV*  V-U*S1(I) 

IK  J  .EQ.dl )  GO  TJ  54 
IF  <  J.EG.J3)  GO  TO  55 
IF(  AV.LT.O.)  GJ  TO  54 

55  B 1  -  -DT*GH*AV*2.*B1(J  ) 

A  i  *  l.-BI 

Cl*  G. 

Gu  TO  56 

54  Cl*  DT*DH*AV*?.*Bl(J ) 

AI*  l.-CI 
dl*  0. 

56  Y I*  GN( l, J ) 

Li  I  *  0  < 

El*  0. 

GAMA*  D I 

Bt  0 A*  3  I-C ( J  — ?  )  *G AMA 

ALFA*  1./ (AI-BECA  +  C ( J- 1 ) -GAMA*  £ ( J-2) i 
C(J)*  (C I-BEOA*E ( J-l )) *ALF A 
E  (J )*  E I*  ALF  A 

F ( J )■ (YI-faEOA*F ( J-l ) -GAMA* F (J-? ) )*ALFA 
60  CONTINUE 
CCG*  0. 

CG*  C. 

DU  57  K *  JI»J3 
J*  J  3  ♦  J1  -K 
0  G  *  C  G 

CG*  F ( J )-C< J)*CG-F( J )*CCG 
CCG*  DG 

5  7  G N  (  I  #  J  )  *  CG 

UPDATE  NEXT  R  UN  U AT  A 
Uu  5b  I*  1 0» I  3 
DU  56  J*  J1,J3 
CG*  GN (  I #  J  ) 

0(1, J  )*  G( I* J  )*CG 
GMdfJJ*  CG 

I F  t  AcsS(CG).LE  .KG)  GO  TO  58 
KG*  AdS(CG) 

IG*  I 
Jo*  J 

58  CONTINUE 

IF(NIT.NE.O)  GO  TQ  59 

UT  I M * IJ T I M  ♦  OT 

FASAGA*  FkEQRA*UTIM 

ALPHA*  ALS  ♦  AM)LA*SIMFa3AGA)/KAD 

AL*  ALPHA*R AD 

ALT*  AMPLA^FRE wKA*C 05 (FASAGA )/KAD 


ALTT*  -AMPLA*FkEURA**2*SIN(FASAGA)/RAD 

F ASAGM*  FPEQRM*UT  IK 

FMACH*  F  MACHS  +  A MP L h*S I N ( F AS AGM ) 

FMACFiT *  AMPlM*FF:fcvRM*C03  ( F ASAGK  ) 

FASAGC*  FkEQ»C*UTIM 

CETARD*CETA$  ♦  A  K  P  L  C  *  i  1 N  (  F  A  S  A  6  C  )  /  RAD 
C  E  T  A  =  CETARu  *»AD 

C  fcTAT*  AMPLC*FRfcQRC*CGS(FASAGC)/RAL 
C  E  T  AT  T  =  -AMPLC*FREGRC* *2 *SIN( FASAGC )/RAD 
Cb*  COS ( ALPHA  ) 

So*  SIM(ALPHA) 

C  A=  FMACH*CB 
S  A  *  FM  ACH*  S  B 
FMACH 2”  FMACH* *2 
WAKE  CONDITION 
59  IF  (  NIT.  EG.  1)  GO  TO  C-J 
Go  TO  61 

6G  DO  62  I*  I X  2 ;  13 

62  WG(I>*  G  ( I  X  2  *  3  ) -G (1X1*3) 

61  1=  1X2 

V.  G  (  I  )  =  W  G  (  I  )  +  GN(IX2»3)-GN(IX1>3) 

63  1=  1+1 

Y=  50 ( I ) ♦ BO ( 3 ) 

X  -  AO (1) 

HH*  X  * X  ♦  Y*  Y 
DHH*  l./HH 

XT*  -.5* Y* ( AL TtCE TAT J  *  DHH*(C4*X  ♦  SA+Y) 
H*SOKT (HH) 

YP*  Y 
HP  *  H 

GI*  G  ( I  +1  *  3  )-  G  (  I- 1»  3  ) 

I F (  1.E0.I3)  GI*  2.  *(G (  1*3) -G (1-1*3)  ) 

GJ  *  2.* (GI 1*4 ) -G ( 1*3)) 

GP  *(Al(D*  GI  -SI  ( I  )*bi  (3)*  GJ  )  /  H 

M*  NX*  A  -I 
Y*SO (M)+B0(3) 

Hh*AG(M )*AO(M )+Y*Y 
H* i OR  T (  HH ) 

HK  *  H 
YM*  Y 

GI*  G(«+1»3)-G(M-1,3) 

I F (  1.EQ.I3)  GI*  2.*(G(M+1,3)-G(H»3)  ) 
GJ*2.*(G(M*t)-G(M*3) ) 

G  4  * ( A 1 ( M ) *  GI  -S 1 ( M ) *D 1 (3)*  GJ)/H 

Y  *  .5MYP-YM) 

U*  . 5* ( U  P-UM ) 

H*  .5MHP+HM) 

BE*  ?.*0T*A1(  I)*(U/H  +  X  T  ) 

*  3  <  I  )  «  (WG(I)+BF*WG( 1-1) ) / (l.*BF  ) 

1 F  <  I. IT. 13)  GO  TC  63 
Dj  67  I*  10*13 
CGG*  G  (  I » 1  ) 


I F  ( I.6T. 1X2)  Gu  TH  66 
IF  ( I  .LT.I  XI  )  GL  TI!  bb 
T  ANGfcNT  I  AL  BOUNDARY  CUND1T1UN 
Y*  SO  (  I  )  +  BC  (  3  ) 

X*  AO (  I  ) 

HH*  X*X  +  Y*Y 
OHH=  l./HH 

X  T  =  -  .  5  *  Y  *  (  ALT+CtTAT  )  +  DHH*(CA*X  +  SA*Y) 
YT*  .5*XM  ALT  +  CtTAT)  -OHH*(CA*Y  —  SA*X  ) 
VBN=FH*(XT*Sl (  I  )  -YT) 

GI *  G(I+1>3)-G( I  —  1 >  3 ) 

FX«l.+Sl(i>**2 
PIS*  FX*  B 1 ( 3 ) 

GXSXVB*  Al(l)*GI*Sl(I)+VfcN 
G  (  It  2)  =  G(  1,  A  )  -GXSXVti/B  IS 
G  (  I  >  1  )  =  G  (  I  >  5  )  -2.*GXiXVB/61S 
GO  TO  64 

66  G(I>2)=  G(M»4)+Wo(I  ) 

G(  l, 1 )=  G( M,5  )+Wo (  I ) 

GO  TO  64 

bb  G(I*2)*  G  (  M»  4  )  -ViG  (  M  I 
G  ( I  >  1 )  =  G(  "l>  5  )-wG(M  ) 

64  GM(  I »  2  )  =  G ( I »  2  )-C  G 
GK ( I » 1  )  *  G ( Lt  IJ-CCG 

67  CONTINUE 
RETURN 
END 
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